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Instruction  Summary 


GENERAL 

* All  input  must  be  in  UPPER  CASE. 

* You  will  be  prompted  for  all  input  data. 

* You  need  only  enter  data  you  wish  to  change. 

* You  can  go  back  and  make  corrections  to  input  data 

at  any  time. 

TO  ABORT  - 

* CONTROL  Y kills  everything. 

* Tilde  ( - ) saves  results  already  completed. 

DATA  ENTRY  - 

* General  form  is  NAME[(index)]  = datal  [,data2,...  ] 

Note  : a quantity  in  brackets  indicates  optional  input 
where  : "NAME"  is  a variable  name  which  is  prompted  for 
where  : "data"  can  be  any  of  the  following: 

value  (a  real/integer  number) 

i.e.,  RCHAMB=2.5  ; 1CAV=1 

N*value  (a  repeated  value) 

i.e.,  TQW=3*2000... equivalent  to  TQW=2000, 2000, 2000 

N(valuel,value2,...)  (a  repeated  group  of  values) 

i.e.,  XP=2(.96,.95)... equivalent  to 
XP=.96,.95,.96,.95 

„ (an  unchanged  array  value) 

i.e.,  XTQW=0„3. 5,.. .changes  the  1st  value  to  0, 
leaves  the  2nd  value  unchanged,  and  changes 
the  3rd  value  to  3.5 

N*,  (a  block  of  unchanged  values) 

i.e.,  UEO=10, 5*, 90.. .changes  the  1st  value  to  10, 
leaves  the  2nd  thru  6th  values  unchanged  and 
changes  the  7th  value  to  90  and  continues 
filling  the  array  from  there. 

* A line  ending  with  a COMMA  signals  more  input  for  this  array. 

Note:  If  a COMMA  is  inadvertently  input  at  the  end  of  a line, 

a <RET>  input  on  the  following  line  will  terminate 
input. 

* <RET>  in  place  of  a value  signals  no  change  for  this  variable 

i.e.,  the  current  or  last  input  value  is  retained. 

* <BACKSPACE>  backspaces  over  characters  which  have  been 

displayed. 

i.e.,  ==>UEO=  is  printed  on  the  screen,  to  start 
changing  input  at  the  9th  value,  enter  a 
<BACKSPACE>,  followed  by:  (9)=400,500,...  which 
will  appear  as  ==>UEO(9)=400,500.. 

NOTE:  <CTRL>H  can  be  used  on  terminals  without  a <BACKSPACE>. 

* @INSERT  in  place  of  a value  allows  the  user  to  INSERT  data 

into  a table. 

* @SKIP  in  place  of  a value  signals  the  program  to  skip  the 

remaining  variables  in  that  application  and  proceed  to 
the  next  application. 

* @HELP  in  place  of  a value  will  cause  these  instructions  to  be 

repeated. 
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OVERVIEW 

* The  structure  of  this  code  is  menu  driven.  Upon  picking  an 
application  you  will  be  shown  the  NAMELIST  for  that  application, 
a description  and  the  VARIABLES  in  that  namelist.  You  then  have 
the  option  to  proceed,  or  return. 


REPLAY  FILES  - 

* A replay  file  contains  all  of  the  input  entered  from  the 
terminal.  This  file  can  be  edited  using  the  EDT  editor  and 
used  as  the  input  for  a subsequent  run. 

* Four  special  commands  are  available  in  the  replay  input 
alter  mode: 

@OFF  - Stop  input  from  the  replay  file.  (This  command 
can  aid  in  keeping  the  replay  file  in-sink  when 
entering  a new  menu  option). 

@ON  - Resume  alter  input  from  the  replay  file 
(after  the  next  input  from  the  terminal). 

@GO  - Finish  processing  using  the  replay  file  without 
further  keyboard  input. 

@ SEARCH  'NAME'  - Search  through  the  replay  file  for 
'NAME'.  This  may  be  used  to  get  the  REPLAY  file 
back  in  sync.  Must  be  proceeded  with  the  @ON 
command  if  @OFF  was  entered. 

* Please  refer  any  comments,  problems,  bugs,  etc.  to  : 

Software  and  Engineering  Associates,  Inc. 

Stu  Dunn  or  Curtis  Johnson 

(702)  882-1966 


A-3 


ERROR  MESSAGES 
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INTERPRETATION  OF  ERROR  MESSAGES 


Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 


ALEN  NOT  CONVERGENT  IN  SUBROUTINE  SWIRL,  ALEN=xxx  FOR 
ELEMENT  TYPE=xxx 

ALEN  is  the  "fan"  length  in  SWIRL,  the  Aerojet  swirl  coaxial  atomization  routine. 
The  user  should  check  element  inputs  for  consistency.  The  iteration  counter  can  be 
increased  in  SWIRL,  if  this  problem  persists. 

AX  BEYOND  THROAT  IN  SUBROUTINE  SHEAR;  RUN  STOPPED 

AX  is  the  downstream  axial  position  in  SHEAR,  the  Aerojet  shear  coaxial 
atomzation  routine.  The  message  often  results  when  inconsistent  element  geometry 
is  input.  Output  contained  in  the  debug  file  may  aid  in  evaluating  the  cause  of  this 
error. 


CHAMBR  CALLED  WITH  INVALID  MODEL,  MCHAM=xxx 
An  invalid  chamber  response  model  indicator  input. 


COAXIAL  ELEMENT  FUEL  VELOCITY  - GAP  ITERATION  FAILED  TO 
CONVERGE  IN  SUBROUTINE  REDESIGN 

REDESIGN  tries  to  balance  the  injector  design  for  a directed  change  operating 
condition  or  element  design  (Section  3.6).  This  message  occurs  when  the  new 
velocity  ratio  (Vf/Voj)  is  less  than  the  minimum  (VRATMI),  and  REDESIGN  can 
not  find  an  annulus  gap  which  satisfies  VRATMI.  The  simplest  solution  is  to  reduce 
VRATMI,  but  the  output  and  history  files  should  be  reviewed  first,  to  determine  if 
the  requested  design  change  is  reasonable.  The  iteration  counter  may  also  be 
increased  from  20,  if  it  is  felt  that  convergence  is  slow. 


COAXIAL  ELEMENT  LOX  FLOWRATE  ITERATION  CONVERGENCE 
FAILURE  IN  SUBROUTINE  REDESIGN 

REDESIGN  is  trying  to  determine  the  LOX  pressure  drop  required  to  meet  the 
engine  flowrate  with  the  new  fuel  annulus  design.  An  iteration  counter  has  been 
included  to  prevent  ROCCID  from  getting  lost.  This  condition  will  result  from  a 
slowly  converging  solution,  or  more  likely  from  a physically  unrealistic  fuel  annulus 
size  or  pressure  drop.  Check  these  inputs. 


COAXIAL  ELEMENT  LOX  FLOWRATE  ITERATION  CONVERGENCE 
FAILURE  IN  SUBROUTINE  PDESIGN 

Subroutine  PDESIGN  calculates  the  design  changes  required  to  satisfy  the 
performance  goal.  When  the  new  required  lox  injection  velocity  has  been 
determined,  PDESIGN  determines  the  injection  pressure  drop  required  to  achieve  the 
new  injection  velocity,  with  the  existing  lox  post.  This  is  an  iterative  process,  and  a 
counter  has  been  included  to  preclude  ROCCID  from  getting  into  an  infinite  loop. 
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Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 


COMBR  CALLED  WITH  INVALID  MODEL,  MBURN=xxx 
An  invalid  burning  response  model  indicator  input. 


COMBUST  NONCONVERGENT  IN  C*/FLOWRATE  CALCULATIONS 

The  delivered  C*-C*  efficiency-flowrate  iteration  in  COMBUST  utilizes  a simple 
replacement  iteration  technique.  While  this  technique  works  well  for  high 
performance  combustors  (Eta-C*>0.85)  convergence  can  be  slow  for  lower 
performing  combustors. 


COMBUST  NONCONVERGENT  IN  TOTAL  PRESSURE  CALCULATIONS 

The  total  pressure  loss  iteration  in  COMBUST  utilizes  a simple  replacement  iteration 
technique.  The  maximum  number  of  iterations  can  be  increased  if  convergence  is  a 
persistent  problem. 


CONVERGENCE  ERROR  IN  ANNULAR  GAP  ITERATION  FOR  SWIRL  COAX 
ELEMENTS  IN  SUBROUTINE  CORESIZE  AFTER  xxx  ITERATIONS  NEL=xxx 
GAP=xxx  IN 

Subroutine  CORESIZE  determines  the  annular  gap  iteratively  for  swirl  coaxial 
elements,  as  discussed  in  Section  3.2.  This  message  occurs  when  the  specified 
iteration  limit  is  exceeded.  Increasing  this  limit  may  resolwe  this  problem,  but  the 
iteration  history  in  the  debug  file  (file  type  .DBG)  should  be  examined. 


CONVERGENCE  ERROR  IN  ANNULAR  GAP  ITERATION  FOR  SHEAR  COAX 
ELEMENTS  IN  SUBROUTINE  CORESIZE  AFTER  xxx  ITERATIONS  NEL=xxx 
GAP=xxx  IN 

Subroutine  CORESIZE  determines  the  annular  gap  iteratively  for  shear  coaxial 
elements,  as  discussed  in  Section  3.2.  This  message  occurs  when  the  specified 
iteration  limit  is  exceeded.  Increasing  this  limit  may  resolve  this  problem,  but  the 
iteration  history  in  the  debug  file  (file  type  .DBG)  should  be  examined. 
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Message: 


Remedy: 


Message: 


Remedy: 


Message: 


Remedy: 


CONVERGENCE  ERROR  IN  ENTROPY  ITERATION  IN  SUBROUTINE 
VGCALC 

MANIFOLD  P (MPA),T  (R),  S(J/MOLE-K)=xxx,  xxx,  xxx 
INJECTED  P (MPA),T  (R),  S(J/MOLE-K)=xxx,  xxx,  xxx 

Subroutine  VGCALC  iteratively  calculates  the  injection  properties  of  gaseous 
propellants  given  the  chamber  pressure  and  the  manifold  pressure  and  temperature. 
This  message  comes  from  the  iteration  that  determines  the  injection  temperature  by 
matching  the  injected  entropy  with  the  manifold  value.  The  most  common  cause  of 
this  error  is  that  the  injected  condition  lies  in  the  two-phase  region  of  the  H-S 
diagram,  i.e.  within  the  dome.  This  is  only  a problem  because  MIPROPS  is  not 
capable  of  determining  the  fluid  quality.  The  user  should  check  the  operating 
conditions  relative  to  the  dome  on  an  H-S  diagram.  The  iteration  process  can  be 
followed  by  examining  the  iteration  record  contained  in  the  debug  file  (file  type 
.DBG). 


CONVERGENCE  ERROR  IN  ENTROPY  ITERATION  IN  SUBROUTINE  GASV 
MANIFOLD  P (MPA),T  (R),  S(J/MOLE-K)=xxx,  xxx,  xxx 
INJECTED  P (MPA),T  (R),  S(J/MOLE-K)=xxx,  xxx,  xxx 

Subroutine  GASV  iteratively  calculates  the  injection  properties  of  gaseous 
propellants  given  the  chamber  pressure  and  manifold  temperature.  This  message 
comes  from  the  iteration  that  determines  the  injection  temperature  by  matching  the 
injected  entropy  with  the  manifold  value,  which  was  calculated  for  the  guessed 
manifold  pressure.  The  most  common  causes  of  this  error  are  1)  insufficient  flow 
area  for  the  required  flow,  thereby  causing  the  velocity  to  become  sonic,  and  2)  the 
injected  condition  lies  in  the  two-phase  region  of  the  H-S  diagram,  i.e.  within  the 
dome.  The  latter  is  a problem  because  MIPROPS  is  not  capable  of  determining  the 
fluid  quality.  The  user  should  check  the  flow  area  input.  The  iteration  process  can 
be  followed  by  examining  the  iteration  record  contained  in  the  debug  file  (file  type 
.DBG). 


CONVERGENCE  ERROR  IN  FLOWRATE  ITERATION  IN  SUBROUTINE 

GASV  MANIFOLD  P (MPA)=xxx,  T (R)=  xxx 

INJECTED  P (MPA)=xxx,  T (R)=  xxx 

DESIRED  WDOT  (LB/S)=xxx,  CALCULATED  WDOT=xxx 

Subroutine  GASV  iteratively  calculates  the  injection  properties  of  gaseous 
propellants  given  the  chamber  pressure  and  manifold  temperature.  This  message 
comes  from  the  iteration  that  determines  the  injected  flowrate  by  adjusting  the 
manifold  pressure.  The  most  common  causes  of  this  error  are  1)  insufficient  flow 
area  for  the  required  flow,  thereby  causing  the  velocity  to  become  sonic,  and  2)  the 
injected  condition  lies  in  the  two-phase  region  of  the  H-S  diagram,  i.e.  within  the 
dome.  The  latter  is  a problem  because  MIPROPS  is  not  capable  of  determining  the 
fluid  quality.  The  user  should  check  the  flow  area  input.  The  iteration  process  can 
be  followed  by  examining  the  iteration  record  contained  in  the  debug  file  (file  type 
.DBG). 
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Message: 

Remedy: 


Message: 

Remedy: 


Message: 

Remedy: 


Message: 

Remedy: 


RPT/H0036.63-App/ 


CONVERGENCE  ERROR  IN  FUEL  PRESSURE  DROP  ITERATION  .FOR 
SHEAR  COAX  ELEMENTS  IN  SUBROUTINE  CORESIZE  AFTER  xxx 
ITERATIONS 

As  discussed  in  Section  3.2,  the  core  sizing  routine,  CORESIZE,  tries  to  determine  a 
fuel  injection  pressure  that  will  increase  the  fuel  injection  velocity,  thereby  satisfying 
the  minimum  velocity  ratio  constraint.  Since  this  process  is  iterative,  a counter  has 
been  included  to  prevent  the  code  from  getting  caught  in  a loop.  The  above  message 
is  the  result  of  the  number  of  iterations  exceeding  the  counter,  a condition  often 
caused  by  either  a very  high  oxidizer  injection  velocity  or  a large  minimum  velocity 
ratio,  VRATMIN. 


CONVERGENCE  ERROR  IN  FUEL  PRESSURE  DROP  ITERATION  FOR 
SWIRL  COAX  ELEMENTS  IN  SUBROUTINE  CORESIZE  AFTER  xxx 
ITERATIONS 

As  discussed  in  Section  3.2,  the  core  sizing  routine,  CORESIZE,  tries  to  determine  a 
fuel  injection  pressure  that  will  increase  the  fuel  injection  velocity,  thereby  satisfying 
the  minimum  velocity  ratio  constraint.  Since  this  process  is  iterative,  a counter  has 
been  included  to  prevent  the  code  from  getting  caught  in  a loop.  The  above  message 
is  the  result  of  the  number  of  iterations  exceeding  the  counter,  a condition  often 
caused  by  either  a very  high  oxidizer  injection  velocity  or  a large  minimum  velocity 
ratio,  VRATMIN. 


CONVERGENCE  ERROR  IN  MACH  NUMBER  ITERATION  IN  SUBROUTINE 
RAYLEE:  NEW  MACH=xxx,  OLD  MACH=xxx,CALCULATIONS 
PROCEEDING  WITH  OLD  TOTAL  PRESSURE  LOSS 

Subroutine  RAYLEE  calculates  the  change  in  total  pressure  due  to  change  in  total 
temperature,  area  ratio  and  mass  flowrate.  It  numerically  integrates  Shapiro’s 
influence  coefficient  equations  from  the  chamber  throat,  using  the  input  temperature, 
mass  flow  and  area  profiles.  At  each  spacial  location,  RAYLEE  iterates  on  the  new 
mach  number,  using  the  mach  number  for  the  downstream  condition.  This  message 
occurs  when  the  iteration  fails  to  converge,  causing  RAYLEE  to  use  the  old  mach 
number  for  the  mach  number  at  the  current  station.  There  is  no  fix  for  this  condition, 
and  the  message  is  included  for  informational  purposes. 


CONVERGENCE  FAILURE  IN  SUBROUTINE  FRICTION;  F,Fl=xxx,  xxx 

Subroutine  FRICTION  iteratively  determines  the  Fanning  friction  factor  from  the 
input  nondimensional  roughness  and  Reynold's  number  using  the  Coolbrook 
correlation.  A convergence  error  in  FRICTION  will  cause  this  message  to  be 
printed,  where  F and  FI  are  the  current  and  most  recent  past  values  of  the  friction 
factor. 
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Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 


CONVERGENCE  ERROR  IN  SUBROUTINE  LEINJ  AFTER  50  ITERATIONS 
FREQUENCY=xxx,  IEL=xxx,  INDX=xxx  TRY  INCREASING  USGF,  OGF 
AND/OR  DSGF 

USGF,  OGF  and  DSGF  control  the  number  of  grid  points  used  in  the  spatial 
integration  in  LEINJ.  Adjusting  any  of  these  parameters  in  the  model  control  file 
(file  type  .CNT)  will  effect  model  convergence.  IEL  refers  to  the  element  category, 
i.e.  core  (1),  baffle  (2),  barrier  (3)  or  FFC  (4),  while  indx  refers  to  propellant  circuit, 
i.e.  fuel  (1)  or  ox  (2). 


CONVERGENCE  ERROR  IN  SUBROUTINE  PRESSD  FOR  INDX=xxx 

Subroutine  PRESSD  calculates  the  pressure  drop  required  to  achieve  the  input  total 
flowrate  for  propellant  circuit  INDX  (INDX=1  for  fuel,  =2  for  ox).  Since  mixed 
element  patterns  can  be  accomodated,  this  procedure  must  be  iterative.  An  iteration 
counter  has  been  included  in  PRESSD  to  prevent  the  code  from  running  away.  The 
convergence  history  is  contained  in  the  debug  file  (file  type  .DBG),  and  should  be 
examined  to  diagnose  the  cause  of  the  convergence  failure. 


CONVERGENCE  ERROR  IN  SUBROUTINE  SWIRLPD  "a"  NOT  CONVERGED 
AFTER  1000  ITERATIONS 

SWIRLPD  calculates  the  flowrate,  tip  Cd,  injection  velocity  and  resultant  spray  cone 
angle  for  a swirl  coaxial  element  of  prescribed  geometry  and  injection  pressure  drop. 
The  variable  a is  used  in  this  calculation  procedure,  and  refers  to  the  same  value  in 
the  reference  by  Doumas  and  Laster.  The  most  common  cause  of  this  error  is 
incorrect  element  geometry  input  definitions,  including  NINLETS,  CDINLET, 
DRATIO  and  AINLET  (See  Section  4.2  for  more  description  of  these  input 
variables). 


CONVERGENCE  ERROR  IN  SUBROUTINE  SWIRLPD, "aPRIME"  NOT 
CONVERGED  AFTER  1000  ITERATIONS 

SWIRLPD  calculates  the  flowrate,  tip  Cd,  injection  velocity  and  resultant  spray  cone 
angle  for  a swirl  coaxial  element  of  prescribed  geometry  and  injection  pressure  drop. 
The  variable  aPRIME  (or  a’)  is  used  in  this  calculation  procedure,  and  refers  to  the 
same  value  in  the  reference  by  Doumas  and  Laster.  The  most  common  cause  of  this 
error  is  incorrect  element  geometry  input  definitions,  including  NINLETS, 
CDINLET,  DRATIO  and  AINLET  (See  Section  4.2  for  more  description  of  these 
input  variables). 


CONVERGENCE  FAILURE  ERROR  IN  SUBROUTINE  EMEST 
ETAMIX  REQUIRED=xxx,  ETAMIX  CALCULATED=xxx,  ETAM=xxx 

Subroutine  EMEST  determines  the  ETAM  (related  to  Em)  required  to  achieve  the 
input  Etamix.  This  message  occurs  when  the  iteration  counter  exceeds  its  maximum 
value.  The  error  message  output  includes  the  current  value  of  ETAM  and  the 
corresponding  value  of  ETAMIX. 
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Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 


CONVERGENCE  FAILURE  IN  CHAMBER  LENGTH  (OR  ORIFICE  DIAMETER 
OR  INJECTION  VELOCITY)  ITERATION  IN  SUBROUTINE  PDESIGN 


PDESIGN  is  used  to  calculate  the  change  in  the  injector  design  and  operating 
parameters  which  will  result  in  the  performance  goal  being  met.  The  change  in  the 
parameter  is  determined  by  iteratively  solving  for  the  effect  of  the  variable  change  on 
vaporization  efficiency.  The  above  message  will  result  typically  unrealistically  high 
or  low  performance  requirements  combined  with  length  and/or  pressure  drop 
constraints.  Review  output  and  history  file  output  along  with  your  inputs  (file  type 
.DES)  to  evaluate  if  they  are  1)  consistent,  2)  realistic. 


***  DIST3D  FREQUENCY  ITERATION  NONCONVERGENT  AFTER  xx 
ITERATIONS,  CONSIDER  INCREASING  "IDMAX"  *** 


IDMAX  is  the  maximum  number  of  successive  approximations  permitted  by 
DIST3D.  IDMAX  is  contained  in  the  Model  Control  Variables  (file  type  .CNT).  As 
the  message  indicates,  increasing  IDMAX  can  sometimes  permit  convergence  of  the 
iteration,  although  large  values  of  IDMAX  may  result  in  error  accumulation  and 
invalid,  negative  frequencies. 


ELEMENT  PRESSURE  DROP  CONVERGENCE  FAILURE  IN  SUBROUTINE 


DPOST  is  trying  to  size  the  internal  geometry  of  a shear  coaxial  element  Lox  circuit, 
so  as  to  meet  design  constraints,  e.g.,  DIVANG,  the  specified  pressure  drop  and  exit 
diameter,  while  providing  for  repeatable,  attached  flow  conditions  at  the  post  exit. 

An  iteration  counter  has  been  included  to  preclude  getting  caught  in  an  infinite  loop., 
This  counter  can  be  increased,  but  the  reasonableness  of  model  inputs  should  firsi  be 
evaluated  by  examining  the  debug  output  of  the  iteration  convergence  process  in  the 
Debug  file. (.DBG). 

ERROR  IN  CORESPAC,  UNKNOWN  ELEMENT  TYPE=xxx 

Subroutine  CORESPAC  spaces  the  injection  elements  radially  and  circumferentially. 
This  message  occurs  when  the  element  type  is  not  one  of  those  permited  i e LOL 
OFO,  FOF,  SHD,  SHC  or  SWC. 


ERROR  IN  CORESPAC,  # ELEMENTS  NOT  DIVISIBLE  BY  # BAFFLE 
BLADES;  NEL,NBAF=xxx,  xxx 

Although  this  error  is  not  likely,  the  error  checking  has  been  included  to  preclude 
non-symmetric  injector  designs. 


***  ERROR  ENCOUNTERED  IN  NOZZLE  GEOMETRY  IN  SUBROUTINE 
NOZINI  *** 

This  message  indicates  that  the  input  nozzle  geometry  is  inconsistent,  e.g.  tangency 
points  don't  meet.  This  error  is  most  likely  to  result  when  the  user  has  created  an 
input  file  without  the  assistance  of  the  IFE,  since  it  checks  this  condition  during 
input. 
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Message: 

Remedy: 

Message: 

Remedy: 


Message: 

Remedy: 


Message: 

Remedy: 


***  ERROR  IN  HCAVEF  FOR  F=xxx,  PHIF  SET  TO  0.0 

HCAVEF  is  the  HOT  subroutine  which  determines  the  wave  circumferential 
orientation,  relative  to  the  cavity  orientation,  that  result  in  minimum  damping,  is 
the  frequency,  in  hz,  and  PHIF  is  the  injector  face  admittance  for  the  imnimally 
damned  orientation.  PHIF=0  is  equivelant  to  no  cavities  being  present,  inis 
message  is  mainly  information,  indicating  that  the  user  should  consider  the  results 

suspect. 


***  ERROR  IN  HFCS,  CHAMBER  RESPONSE  MINIMUM  NOT  FOUND  FOR 
MODE  M=xxx,  N=xxx  *** 


As  discussed  in  Section  3.4,  HFCS  centers  the  chamber  response  frequency  sweep 
about  the  calculated  resonant  frequency  of  the  mode,  negle^ing  any  influences  of 
damping  devices.  When  the  frequency  sweep  is  complete,  HFCS  checks  mat  a 
minimum  exists  in  chamber  response  curve  (not  necessarily  the  fundamental  mod  , 
just  a minimum).  If  the  minimum  is  not  found,  HFCS  shifts  the  center  of  the 
frequency  sweep  to  a lower  frequency  and  tries  again.  If  the  mimmum  is  notfound 
this  time,  the  error  message  above  is  printed.  The  user  should  check  the  chamber 
response  model  output  in  the  history  file  (file  type  .HIS)  to  confirm  thauhisisthe 
problem  While  there  is  no  remedy  for  this  condition,  the  last  value  ofthe  decay 
coefficient,  AL,  may  be  adequate  to  determine  the  high  frequency  stability 
characteristics  for  the  subject  mode,  M tangential  + N radial. 


***  ERROR  IN  HFCS,  COMBUSTION  RESPONSE  PEAK  NOT  FOUND  *** 

HFCS  begins  by  determining  the  burning  response  curve  versus  frequency,  as 
discussed  in  Section  3.4.  To  ensure  that  a large  enough  frequency  range  has  been 
covered,  it  checks  that  the  burning  response  magnitude  reaches  a maximum.  It  it  is 
not  found,  HFCS  will  coarsen  the  frequency  stepsize  and  look  once  more  tor  the 
peak.  If  it  still  can't  find  the  peak,  this  message  is  printed.  The  user  should  examine 
the  burning  response  model  output  contained  in  the  history  file  (fi  e yPe  • 
ensure  that  this  is  the  case.  The  user  should  also  check  the  input  model  parameters, 
checking  that  the  frequency  range  examined  includes  0.5/Tau  hz,  where  Tau-Tausen 
if  the  N-Tau  model  was  used,  or  Tau  is  the  estimated  droplet  lifetime  calculated  by 

CRP. 


***  ERROR  IN  HFCS,  STABILITY  CONDITION  NOT  FOUND  IN 
SUBROUTINE  STABC  ***  AL=xxx,  M=xxx,  N=xxx 

As  discussed  in  Section  3.4,  HFCS  uses  the  subroutine  STABC  to  determine  the 
frequency  at  which  the  maximum  in-phase  gain  occurs.  This  message  occurs ; when 
STABC  can  not  find  where  the  gain  function  passes  between  180  and  -180  degrees. 
The  user  should  verify  that  the  crossing  does  not  exist  by  examining  the  STABC 
output  in  the  history  file  (file  type  .HIS).  While  there  is  no  remedy  for  this 
condition,  the  last^alue  ofthe  decay  coefficient,  AL  may  ^ad^®^f\e^ne 
the  high  frequency  stability  characteristics  for  the  subject  mode,  M tangential 

radial. 
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Message: 

Remedy: 

Message: 

Remedy: 


Message: 

Remedy: 


Message: 

Remedy: 


RPT/E0036.63-App/ 


***  ERROR  IN  LFCS,  ITERATION  COUNTER  EXCEEDED  BEFORE 
MARGINAL  CONDITION  WAS  FOUND  *** 

In  an  effort  to  prevent  LFCS  from  getting  lost,  and  thereby  pointlessly  using 
excessive  amounts  of  computer  time,  LFCS  is  only  allowed  to  adjust  the  chamber 
pressure  100  times  in  its  search  for  the  marginal  operating  pressure  (See  Section  3.3 
for  more  details).  This  message  occurs  when  the  counter  has  been  exceeded.  The 
user  should  check  that  1)  the  chamber  pressure  iteration  has  not  gotten  lost  or  stuck, 
or  2)  the  calculations  do  not  indicate  that  the  configuration  is  either  extremely  stable 
or  unstable,  i.e.  throttled  to  pressures  excessively  higher  or  lower  than  the  nominal. 


***  ERROR  IN  LFCS,  LONGITUDINAL  MODE  NOT  FOUND  *** 

LFCS  begins  by  determining  the  chamber  response  versus  frequency,  as  discussed  in 
Section  3.3.  The  frequency  range  is  intended  to  exceed  the  first  longitudinal  (1L) 
resonant  frequency.  LFCS  can  confirm  that  this  has  occured  by  checking  for  a 
chamber  response  minimum.  If  the  minimum  is  not  found,  LFCS  increases  the 
chamber  response  frequency  stepsize  and  tries  to  find  the  1L  minimum  again.  If  the 
minimum  is  not  found  the  second  time,  this  message  is  printed,  and  LFCS  stops.  The 
user  should  ensure  that  the  1L  was  actually  not  found  by  examining  the  chamber 
response  model  output  contained  in  the  history  file  (file  type  .HIS),  the  user  should 
also  examine  the  frequency  stepsize  used  in  both  the  first  and  second  frequency 
sweeps. 


***  ERROR  IN  LFCS,  STABILITY  CONDITION  NOT  FOUND  15  TIMES 
SUBROUTINE  STABC  *** 

LFCS  uses  the  subroutine  STABC  to  determine  the  frequency  at  which  the  maximum 
in-phase  gain  occurs  (See  Secton  3.3).  If  the  system  is  highly  chug  stable,  a crossing 
of  the  gain  function  between  180  and  -180  degrees  may  not  occur.  Each  time  the 
condition  is  not  found,  LFCS  will  continue  to  throttle  the  engine,  in  an  effort  to  find 
the  marginally  stable  chamber  pressure.  LFCS  has  been  designed  to  accept  this  error 
15  times,  before  printing  the  above  message  and  terminating  execution.  The  user 
should  verify  that  the  crossing  does  not  exist  by  examining  the  STABC  output  in  the 
history  file  (file  type  .HIS).  Since  this  message  usually  implies  extremely  large  chug 
stability  margins,  the  user  should  beware  of  extremely  unstable  injection-coupled 
longitudinal  mode  stability,  i.e.  the  chamber  length  is  excessively  long,  so  the 
timelags  can  not  couple  with  the  bulk-flow  (low  frequency)  oscillations. 


***  ERROR  ***  MACH  NUMBER  GREATER  THAN  UNITY 

This  error  comes  from  subroutine  MACH,  which  calculates  the  mach  number  for  an 
input  area  ratio  and  gamma  using  the  successive  approximation  technique.  The 
routine  is  limited  to  calculations  for  the  subsonic  branch,  so  this  message  indicates  an 
error  in  the  iteration  process. 
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Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 


ERROR  IN  PRELIMD,  BOTH  PROPELLANTS  GASEOUS 

ROCCID  is  currently  not  capable  of  handling  gas-gas  combustors.  This  is  due  to  the 
problems  which  would  arise  during  the  calculation  of  total  timelags 


ERROR  IN  REDESIGN,  FUEL  ORIFICE  SIZE  CAN  NOT  BE  SPECIFIED  FOR 
SHEAR  OR  SWIRL  ELEMENTS 

Specifying  a new  fuel  orifice  diameter  for  coaxial  elements  has  been  avoided  in  the 
current  code,  since  this  can  result  in  an  interminable  loop  (See  Section  3.6).  This  is 
message  will  only  occur  if  the  user  has  modified  the  code  to  vary  this  parameter. 


ERROR  IN  SUBROUTINE  ALOAD,  BAFFLE  ELEMENT  TYPE  xxx  NOT 
RECOGNIZED 

Input  baffle  element  type  invalid,  i.e.  not  LOL,  OFO,  FOF,  SHD,  SHC  or  SWC. 

This  error  is  most  common  when  the  user  creates  input  files  without  the  assistance  of 
the  IFE.  The  most  likely  cause  is  that  the  value  of  the  character  variable  TYPE  is  not 
in  single  quotes  ('). 


ERROR  IN  SUBROUTINE  ALOAD,  BARRIER  ELEMENT  TYPE  xxx  NOT 
RECOGNIZED 

Input  barrier  element  type  invalid,  i.e.  not  LOL,  OFO,  FOF,  SHD,  SHC  or  SWC. 

This  error  is  most  common  when  the  user  creates  input  files  without  the  assistance  of 
the  IFE.  The  most  likely  cause  is  that  the  value  of  the  character  variable  TYPE  is  not 
in  single  quotes  ('). 


ERROR  IN  SUBROUTINE  ALOAD,  CORE  ELEMENT  TYPE  xxx  NOT 
RECOGNIZED 

Input  core  element  type  invalid,  i.e.  not  LOL,  OFO,  FOF,  SHD,  SHC  or  SWC.  This 
error  is  most  common  when  the  user  creates  input  files  without  the  assistance  of  the 
IFE.  The  most  likely  cause  is  that  the  value  of  the  character  variable  TYPE  is  not  in 
single  quotes  (')• 


ERROR  IN  SUBROUTINE  CORESIZE,  COAXIAL  ELEMENT  SPECIFIED  WITH 
LIQUID  FUEL 

As  indicated  in  Sections  2.0  and  5.0,  coaxial  elements  require  that  the  fuel  is 
gaseous,  i.e.  that  the  manifold  temperature  be  above  the  propellant  critical 
temperature.  Check  the  input  fuel  temperature. 
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Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 


Message: 

Remedy: 
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***  ERROR  IN  SUBROUTINE  DCAVEF  FOR  OMEGA=xxx  BETAC  SET  TO  0.0 

DCAVEF  is  the  DIST3D  subroutine  which  determines  the  wave  circumferential 
orientation,  relative  to  the  cavity  orientation,  that  result  in  minimum  damping. 
OMEGA  is  the  frequency,  in  hz,  and  BETAC  is  the  effective  cavity  admittance. 
BETAC=0  is  equivelant  to  no  cavities  being  present.  This  message  is  mainly 
information,  indicating  that  the  user  should  consider  the  results  suspect. 


***  ERROR  IN  SUBROUTINE  DINPUT  ***  NO  DATA  AVAILABLE  FOR 
ELEMENT  TYPE=xxx 

Subroutine  DINPUT  reads  the  design  definition  files  at  the  beginning  of  a POINTD 
run  (file  types  .DES  and  .DEF).  This  message  occurs  when  the  element  type  is  not 
one  of  those  permited,  i.e.  LOL,  OFO,  FOF,  SHD,  SHC  or  SWC. 


***  ERROR  IN  SUBROUTINE  DLOAD  ***  NO  DATA  AVAILABLE  FOR 
ELEMENT  TYPE  xxx 

Input  core  element  type  invalid,  i.e.  not  LOL,  OFO,  FOF,  SHD,  SHC  or  SWC.  This 
error  is  most  common  when  the  user  creates  input  files  without  the  assistance  of  the 
IFE.  The  most  likely  cause  is  that  the  value  of  the  character  variable  TYPE  is  not  in 
single  quotes  ('). 


***  ERROR  IN  SUBROUTINE  NOZADM,  CAN  NOT  GET  OUT  OF  THROAT 
AFTER  xxx  ATTEMPTS  *** 

Subroutine  NOZADM  numerically  calculates  the  nozzle  admittance  by  integrating 
from  the  nozzle  throat  to  the  beginning  of  the  constant  diameter  section  of  the 
chamber  (nozzle  entrance).  The  first  integration  step  is  a pure  Newton  step  (See 
Appendix  K),  so  a small  initial  stepsize  is  desired.  Unfortunately,  if  the  stepsize  is 

too  small,  the  integration  step  occurs  within  the  throat  and  terms  like  1/(1-M  ) 
become  undefined.  To  avoid  this  error,  NOZADM  increases  the  initial  stepsize.  If 
NOZADM  can  not  get  out  of  the  throat  after  several  attempts,  this  message  is 
printed,  and  the  calculations  stopped.  This  error  is  most  common  in  large  diameter 
nozzles  with  a large  throat  entrance  radius. 


ERROR  IN  PRELIMD,  CALCULATED  CR=xxx  <1.0 

Although  this  message  is  not  likely,  it  as  been  included  to  preclude  the  user  from 
continuing  into  more  detailed  analyses  if  this  condition  exists.  It  is  most  likely  to 
occur  with  portions  of  the  chamber  geometry  fixed,  and  insufficient  flowrate  or 
chamber  pressure. 


B-ll 


1/18/91 


Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 


ERROR  IN  SUBROUTINE  PRELIMD,  GASEOUS  PRESSURE  DROP 
ITERATIONS  FOR  DPMIN  DID  NOT  CONVERGE  AFTER  xxx  ITERATIONS 


PRELIMD  must  solve  the  injection  pressure  drop  required  for  a specified  gaseous 
propellant  injection  velocity  iteratively.  This  message  occurs  when  the  iteration  tai  s 
to  converge  at  the  minimum  pressure  drop. 


ERROR  IN  SUBROUTINE  PRELIMD,  GASEOUS  PRESSURE  DROP 
ITERATIONS  FOR  DPNOM  DID  NOT  CONVERGE  AFTER  xxx  ITERATIONS 


PRELIMD  solves  the  injection  pressure  drop  required  for  a specified  gaseous 
propellant  injection  velocity  iteratively.  This  message  occurs  when  the  iteration  tails 
to  converge  at  the  minimum  pressure  drop. 


ERROR  IN  SUBROUTINE  PRELIMD,  PCNOM  NOT  CONVERGED  AFTER  xx 
ITERATIONS 

If  the  user  specifies  the  manifold  pressures,  PRELIMD  solves  for  the  nominal 
chamber  pressure  iteratively.  The  iteration  scheme  tries  to  use  all  the  availab  e 
pressure  drop.  This  message  occurs  when  the  iteration  fails  to  converge.  Further 
insight  into  the  convergence  iteration  can  be  found  in  the  debug  output  file  (tile  type 

.DBG). 

***  ERROR  IN  SUBROUTINE  SHEAR,  LIQUID  FUEL  DETECTED  *** 

Adjust  fuel  temperature  and  or  pressure  to  adhere  to  constraints  outlined  in  Section 
2.2  or  change  injector  element  type 


ERROR  IN  SUBROUTINE  SHEARPD  DUE  TO  ERROR  IN  SUBROUTINE 
FRICTION 

Subroutine  FRICTION  is  used  by  SHEARPD  to  iteratively  determine  the  Fanning 
friction  factor  from  the  input  nondimensional  roughness  and  Reynold’s  number  using 
the  Coolbrook  correlation.  A convergence  error  in  FRICTION  will  cause  this  fatal 
error  in  SHEARPD. 


***  ERROR  IN  SUBROUTINE  SWIRL,  LIQUID  FUEL  DETECTED  *** 

Adjust  fuel  temperature  and  or  pressure  to  adhere  to  constraints  outlined  in  Section 
2.2  or  change  injector  element  type 


ERROR  IN  SUBROUTINE  SPLINT:  KHI=KLO  - STOPPED 

SPLINT  is  the  cubic  spline  interpolation  routine  in  Subroutine  RAYLEE.  This 
message  occurs  when  the  table  contains  an  invalid  array  of  derivative  values.  It  is 
most  likely  to  occur  if  this  routine  is  improperly  accessed  by  a user-added  analysis 
model. 
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Message:  ERROR  ^Y^^™ESWIRLSZR,  "a"  ITERATION  DID  NOT  CONVERGE 

Remedy.  SWIRLSIZR  determines  the  geometry  of  the  swirl  coaxial  post,  given  element 

flowrate  and  injection  pressure  drop.  The  variable  a is  used  in  this  calculation 
procedure,  and  refer  to  the  same  value  in  the  reference  by  Doumas  and  Laster.  The 
most  common  cause  of  this  error  is  incorrect  element  geometry  input  definitions 

tapufvrtables)  d DRATI°  <S“  SeCd°"  4 2 f°r  ^description  Se 


Message:  ERROR  IN  SUBROTONE  SWIRLSZR,  CONVERGENCE  FAILURE  IN  SWIRL 


Remedy: 


Message: 

Remedy: 


SWIRLSIZR  determines  the  geometry  of  the  swirl  coaxial  post,  given  element 
flowrate  and  injection  pressure  drop.  This  message  occurs  when  the  program  is 

rmiwfr'T  3 SWUlch*mber  inlet  orifice  diameter  which  satisfies  other  flow 
constraints  (See  reference  by  Doumas  and  Laster).  The  user  may  want  to  try 

adjusting  the  element  geometry  input  definitions  CDINLET  and  DRATIO  (See 
Section  4.2  for  more  description  of  these  input  variables). 

TJJS  SWILRSZR.  aPRIME  ITERATION  DID  NOT 
CONVERGE  AFTER  1000  ITERATIONS 

SWIRLSIZR  determines  the  geometry  of  the  swirl  coaxial  post,  given  element 
flowrate  and  injection  pressure  drop.  The  variable  aPRIME  (or  a’)  is  used  in  this 
calculation  procedure,  and  refers  to  the  same  value  in  the  reference  by  Doumas  and 
Laster  The  most  common  cause  of  this  error  is  incorrect  element  geometry  input 

o?tr„sP^xD,NLET  and  DRA™ <Sre  secdon  42  f< ‘ “kio" 


Message:  ^^^™DAMINE  FLAME  CALCULATIONS  IN  SUBROUTINE  VAPRO, 


Remedy: 


As  noted  in  Section  3.2,  COMBUST  still  contains  the  dual-flame,  monopropellant 
mine  vaponzationcorrection.  This  message  can  only  occur  when  an  amine  fuel  is 
used.  It  indicates  that  the  calculated  generalized  length  correction  term  is  in  some 
way  inconsistent. 
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Message:  ERROR  WITH  CHAMBER  GEOMETRY  INPUT , BARREL  SECTION  LESS  OR 

EQUAL  0 

CALCULATED  BARREL  LENGTH,  IN=xxx 
CALCULATED  CONVERGENT  SECTION  LENGTH,  IN-xxx 
CHECK  GEOMETRY  INPUTS,  INCLUDING  UNITS: 

RCHAMB,  FT=xxx,  RTHRT,  FT=xxx, 

RNE,  FT=xxx,  RTE,  FT=xxx,  ALPHA,  DEG=xxx, 

Ppmedv  This  error  message  is  generated  by  subroutine  PINPUT.  Since  ROCCID,  in 

y particular  the  chamber  response  models  can  not  handle  purely  conical  chambers,  this 
Sr  menage  has  been  added.  I.  should  be  noted  that  ^ e^or  n«y  dso  occur  due 
to  inconsistencies  in  geometry  inputs,  i.e.  barrel  lengths  less  . . f 

most  likely  to  result  when  the  user  has  created  an  input  file  without  the  assistance  oi 

the  IFE,  since  it  checks  this  condition  during  input. 

ERROR  WITH  NOZZLE  GEOMETRY  AT  TANGENT  POINT  ALPHA=xxx  DEG 

This  message,  generated  by  subroutine  PINPUT,  indicates  fe  ty?*  nozzle 
geometry  is  inconsistent,  especially  where  die  tangency 
error  is  most  likely  to  result  when  the  user  has  created  an  input  file  without  the 
assistance  of  the  IFE,  since  it  checks  this  condition  during  input. 

Message:  ERROR  WITH  VAPORIZATION  INTERPOLATION  IN  SUBROUTINE 

VAPRO,RUN  STOPPED 

Remedy  Subroutine  VAPRO  performs  the  propellant  droplet  vaporization  using  Pnerns 
Remedy,  *forrelation  Section  2.2).  This  message  indicates  that  the 

calculated  generalized  length  correction  term  is  in  some  way  inconsistent. 


Message: 

Remedy: 


Message: 


Remedy: 


EXPANSION  PRESSURE  DROP  CALCULATION  FAILED  IN  SUBROUTINE 
DPOST 


DPOST  is  trying  to  size  the  internal  geometer  of  a shear  coaxial 

so  as  to  meet  design  constants,  e.g.,  DIVANG  the  specified pressure  *op  and  exit 

diameter,  while  providing  for  repeatable,  attached  flow  conditions  aUhe  pos  exit 

An  iteration  counter  has  been  included  to  preclude  getting  caught f 

This  counter  can  be  increased,  but  the  reasonableness  of  model  inputs  should  f^  be 

evaluated  by  examining  the  debug  output  of  the  iteration  convergence  process  in  the 

Debug  file.(.DBG). 


Message:  IN  JR  CALLED  WITH  INVALID  MODEL,  MINJ-xxx 

Remedy:  Invalid  injector  response  model  index  input. 
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Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 


WT/BaU6.»-A|f/ 


INPUT  ERROR  TO  FUNCTION  AINTP,  "X”  ARRAY  NOT  MONOTONICALLY 
INCREASING  X(l)=xxx,  xxx, ... 

AINTP  performs  1-D  interpolations,  but  requires  the  independent  array,  X,  to  be 
monotonically  increasing.  This  message  usually  results  when  the  user  has  input 
arrays,  i.e.  XNOZ,  XMRA,  PCA,  without  using  the  IFE,  which  checks  them. 


INPUT  ERROR  TO  FUNCTION  GETVAL,  ARRAY  "XA"  NOT 
MONOTONICALLY  DECREASING  XA(l)=xxx,  xxx, ... 

GETVAL  performs  1-D  power-law  inteipolations,  but  requires  the  independent 
array,  XA,  to  be  monotonically  increasing.  This  message  usually  results  when  the 
user  has  input  array  PCA  without  using  the  IFE,  which  checks  them. 


INVALID  NUMBER  OF  INPUTS  TO  SUBROUTINE  GETVAL,  N=xxx 

GETVAL  performs  1-D  power-law  interpolations.  The  independent  and  dependent 
arrays  must  be  contain  at  least  2 points. 


LESS  THAN  ONE  DROP  FORMED  OR  NEGATIVE  RJET  IN  SUBROUTINE 
SHEAR 

This  error  is  most  likely  to  result  from  inconsistent  element  geometry  or  during 
application  of  the  model  (SHEAR)  to  unusual  element  designs  (Section  2.1).  Check 
input  element  dimensions. 


LVAP  NOT  CONVERGED  FOR  TRIPLET  IN  SUBROUTINE  TIMELAG,  RUN 
STOPPED 

Because  of  the  potential  for  a dropsize  distribution  when  triplet  injection  elements 
are  used,  the  subroutine  TIMELAG  must  calculate  the  20%  vaporization  length, 
LVAP,  iteratively  (See  Section  5.1  for  more  details).  This  error  message  occurs 
when  the  iteration  counter,  which  is  included  to  prevent  the  program  from  getting 
lost  in  an  infinite  loop,  is  exceeded. 


MACH  CALLED  WITH  ISUB=0,  RUN  ABORTED 

Older  versions  of  subroutine  MACH  contained  a flag  ISUB  which  determined 
whether  the  calculation  was  for  the  subsonic  (ISUB=1)  or  the  supersonic  (ISUB=0) 
branch  of  the  area  ratio-mach  number  calculation.  The  current  routine  has  retained 
the  flag  for  compatability,  but  is  only  capable  of  calculating  Mach  numbers  for  the 
subsonic  branch. 
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Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 

Message: 

Remedy: 


MORE  DROPS  PRODUCED  IN  SUBROUTINE  SHEAR  THAN  DIMENSIONED 
FOR 

This  message  is  often  the  result  of  an  incorrectly  input  element  geometry,  e.g.,  too 
small  of  a fuel  annulus  gap.  If  these  values  are  OK,  the  size  of  the  arrays  R,  XD, 
ATLEN  and  VJL  can  be  increased  in  subroutine  SHEAR  from  500. 


READ  ERROR  ENCOUNTERED  ON  UNIT  9 BEFORE  THIRD  SEND  FOUND  IN 
SUBROUTINE  VSAVE 

Subroutine  VSAVE  reads  the  namelist  $SAVE,  contained  at  the  end  of  the  design 
input  file  (file  type  .DES).  It  reads  the  the  current  design  variables,  contained  is 
$SAVE,  which  are  not  contained  in  the  input  file,  e.g.  injection  pressure,  dropsizes, 
etc.  It  must  exist,  even  if  there  are  no  values,  i.e.  PRELIMD  hasn't  been  run  yet. 

The  primary  cause  of  the  error  message  is  the  incorrect  manual  creation  of  the  .DES 
file,  i.e.  without  the  use  of  the  1FE. 


RJET  NOT  CONVERGENT  IN  SUBROUTINE  SHEAR 

This  error  is  most  likely  to  result  from  inconsistent  element  geometry  or  during 
application  of  the  model  (SHEAR)  to  unusual  element  designs  (Section  2.1).  Check 
input  element  dimensions. 


SHARP-EDGED  ORIFICE  CALCULATIONS  FAIL  IN  SUBROUTINE  DPOST 
FOR  DMS,DSE,CCOSE=xxx,  xxx,  xxx 

Subroutine  DPOST  sizes  the  lox  post  internal  geometry  for  shear  coaxial  elements. 
This  iteration  tries  to  determine  the  sharp-edged  orifice  diameter  (DSE)  with  an 
equivalent  contraction  coefficient  (CCOSE)  as  the  metering  section  diameter  (DMS). 
The  iteration  counter  is  included  to  prevent  the  code  from  entering  an  infinite  loop. 
Progress  of  the  iteration  can  be  checked  in  the  debug  file  (file  type  .DBG) 

***  SUCCESIVE  APPROXIMATIONS  IN  DIST3D  LEAD  TO  NEGATIVE  REAL 
FREQUENCY  FOR  M=xxx  AND  N=xxx,  RUN  STOPPED 

The  iteration  process  in  DIST3D  can  result  in  an  invalid,  negative  frequency,  which 
will  predict  negative  dissipation.  There  is  currently  no  solution  for  this  error. 


TERMINAL  ERROR  IN  SUBROUTINE  GASV,  TABLES  NOT  AVAILABLE 
FOR  GAS  PHASE  PROPERTIES  OF  xxx 

GASV  utilizes  the  MIPROPS  routines,  packaged  in  FLUIDP.  If  the  MIPROPS 
propellant  data  doesn't  exist,  GASV  must  stop. 
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Message:  TERMINAL  ERROR  IN  SUBROUTINE  VGCALC,  TABLES  NOT  AVAILABLE 
FOR  GAS  PHASE  PROPERTIES  OF  xxx 

Remedy:  VGCALC  utilizes  the  MIPROPS  routines,  packaged  in  FLUIDP.  If  the  MIPROPS 

propellant  data  doesn't  exist,  VGCALC  must  stop. 


Message:  TOO  MANY  TIME  STEPS  INPUT  TO  SUBROUTINE  LEINJ, 

NTINJ=xxx,>LIMIT(50),  RETRY  WITH  SMALLER  VALUE 

Remedy:  Hardwired  matrix  sizing  in  LEINJ  limits  the  number  of  time  integrations  per 

oscillation  to  50.  Reduce  the  value  in  the  model  control  file  (file  type  .CNT)  and  try 
again. 


Message:  ***  WARNING  FROM  LFCS,  PC  CONVERGED  WITHOUT  MARGINAL 

CONDITION  BEING  SATISFIED,  FOLLOWING  RESULTS  SHOULD  BE 
CONSIDERED  SUSPECT: 

Remedy:  The  throttling  procedure  included  in  LFCS  will  occasionally  get  stuck  in  the  chamber 

pressure  iteration,  homing  in  on  a chamber  pressure  which  does  not  result  in  a 
marginally  stable  system  gain  (a  maximum  in-phase  magnitude  of  1 .0).  The  user 
should  ensure  that  1)  the  converged  Pc  is  adequate  for  their  minimum  needs,  and  2) 
that  the  system  gain  amplitude  is  not  very  close  to  1.0,  thereby  indicating  that  the 
error  is  only  a matter  of  numerical  tolerencing. 
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Interactive  Front  End  Error  Messages 


ERROR  - Bad  integer  input  --try  again 

User  input  for  an  integer  variable  was  not  an  interger. 

ERROR  — Bad  menu  option  chosen  —try  again 
Menu  option  chosen  was  not  valid. 

ERROR  — Bad  real  input  -try  again 

User  input  for  a real  variable  was  not  a real  number. 

ERROR  — Both  propellants  in  gaseous  state 

For  the  given  operating  conditions  both  propellants  are  gaseous. 

ERROR  - Cavity  geometry  not  compatible  with  chamber  radius 
Chamber  geometry  failed  the  following  test: 

IF  ICAV=2  THEN 

2*Pi*RCHAMB  .GE.  [NCAV(1)*SQRT(4*AC(1)/Pi)  + 
NCAV(2)*SQRT(4*AC(2)/Pi)  + 
(NCAV(1)+NCAV(2))*TPART] 

OTHERWISE 

2*Pi*RCHAMB  .GE.  [NCAV(1)*(AC(1)/WC(1)+TPART)  + 
NCAV(2)*(AC(2)/WC(2)+TPART)] 

ERROR  — CCAV  array;  NCAV  entries  must  be  greater  than  0.0 

The  aperture  length  for  this  particular  cavity  is  nonzero, 
but  the  sound  speed  (CCAV*)  is  zero  for  the  cavity. 

ERROR  — CGAM  array;  NCAV  entries  must  be  greater  than  0.0 

The  aperture  length  for  this  particular  cavity  is  nonzero, 
but  the  specific  heat  ratio  (CGAM*)  is  zero  for  the  cavity. 

ERROR  - Chamber  diameter  bigger  than  DCMAX 

RCHAMB  was  entered  at  a value  larger  than  DCMAX/2.0. 

ERROR  — Chamber  length  longer  than  XLEMAX 

CHAMBL  was  entered  at  a value  larger  than  XLEMAX. 

ERROR  — Chamber  pressure  must  be  greater  than  zero  (psia) 

Neither  chamber  pressure  nor  manifold  pressures  were  entered. 

ERROR  — Contraction  ratio  less  than  1 

Chamber  geometry  failed  the  following  test: 

RCHAMB  .GE.  RTHRT 

ERROR  — Could  not  find  correct  plot  data 

The  expected  plot  data  file  could  not  be  found.  Check  for  file  existence. 

ERROR  — Could  not  open  file 

File  could  not  be  opened  - either  it  does  not  exist,  the  path  to  the  file  is  incorrect, 
or  the  file  is  locked  by  another  user. 
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ERROR  — Data  files  must  be  opened  before  an  analysis  run  can  begin. 

The  data  files  have  not  been  opened  before  starting  an  analysis  run.  Enter  the 
SET  VARIABLES  menu  option,  then  exit  that  menu.  When  prompted  for  saving 
the  data,  answer  YES. 

ERROR  — DDIF  must  be  less  than  or  equal  to  XDJ 
Self  explanatory. 

ERROR  — DMS  must  be  less  than  or  equal  to  DIFF 
Self  explanatory. 

ERROR-  During  a READ 

A read  was  unsuccessful,  most  commonly  caused  by  incorrect  entries  to  a 
namelist. 

ERROR  — Geometry  not  possible  —Chamber  radii  prevent  connecting  tangent 
Chamber  geometry  failed  the  following  test: 

RTHRT+RTE*[l-COS(ALPHA)]  .LE.  RCHAMP-RNE*[(l-COS(ALPHA)] 

ERROR  - Geometry  not  possible  -check  chamber  length 
Input  geometry  failed  the  following  test: 

CHAMBL  .GE.  (RTE+RNE)*SIN(ALPHA)  + [RCHAMB-RTHRT  + (RTE- 
RNE)*(l-COS(ALPHA))]/TAN(ALPHA) 

ERROR  — ICTYP  array;  NCA  V absorbers  have  not  been  entered 

More  absorbers  (NCAV  in  number)  have  been  requested, 

but  not  all  have  been  typed.  There  must  be  NCAV  entries  of  absorber  types  in  the 
ICTYP  array. 

ERROR  - Injector  geometry  is  incompatible  -check  FDJ,  TPOST,  and  XDJ 
The  following  test  failed:  FDJ-XDJ-2*TPOST  .GT.  0 

ERROR  — Input  out  of  bounds 

User  input  was  out  of  the  acceptable  range  for  that  variable. 

ERROR  - Manifold  temperatures  must  be  greater  than  zero  (R) 

Manifold  temperatures  were  not  entered,  or  entered  less  than  -460  degrees  F. 

ERROR  - Nominal  flow  rate  is  less  than  minimum 
WDNOM  is  less  than  WDMIN. 

ERROR  - Problem  reading  plot  data 

When  reading  a plot  file  (*.PL1,  *.PL2,  *.PL3,  etc),  the  data  required  to  make  the 
plot  was  not  found.  Check  formatting  of  the  plot  file. 

ERROR  - Problem  reading  plot  dimension  data 

The  program  cannot  read  the  actual  plot  data,  check  data  format. 

ERROR  - RE2  array;  NCAV  entries  must  be  greater  than  RS2  and 
less  than  the  chamber  radius 

Either  the  chamber  radius  has  been  set  nonzero,  and  the  radius  to  the  outer  edge 
of  the  absorber  segment  (RE2)  is  greater  than  the  chamber  radius,  or  the  absorber 
segment  outer  radius  (RE2)  is  less  than  the  absorber  segment  inner  radius  (RS2). 
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ERROR  - Required  propellant  properties  not  available 

Required  propellant  properties  do  not  exist  for  this  operating  condition.  Most 
commonly  seen  when  running  fuel  through  a coaxial  injection  element. 

ERROR  — RHOAP  array;  NCAV  entries  must  be  greater  than  0.0 

For  this  particular  cavity,  the  cavity  type  is  either  a quarterwave, 
or  user  defined  (ICTYP*=1  or  4),  the  cavity  has  finite  size, 
but  the  density  (RHOAP*)  is  zero. 

ERROR  --  RS2  array;  NCAV  entries  must  be  greater  than  0.0  and  less  than  the  chamber  radius 
The  chamber  radius  has  been  set  nonzero, 
and  the  start  of  the  absorber  segment  (RS2)  has  been  set 
greater  than  the  chamber  radius  or  less  than  zero. 

ERROR  — There  are  not  NCAV(l)  Is  in  EDCAV 

There  must  be  NCAV(l)  ones  in  the  IDCAV  array. 

ERROR  --  There  are  not  NCAV(2)  2s  in  IDCAV 

There  must  be  NCAV(2)  twos  in  the  IDCAV  array. 

ERROR  — Unrecognized  element  type,  please  try  again. 

The  element  type  entered  was  not  recognized,  the  type  must  be:  LOL,  OFO,  FOF, 
SHD,  SHC,  SWC. 

ERROR  — Value  must  be  greater  than  zero 

A variables  was  set  to  zero,  when  zero  is  not  permitted. 

ERROR  --  XMWC  array;  NCAV  entries  must  be  greater  than  0.0 

The  aperture  length  for  this  particular  cavity  is  nonzero, 
but  the  molecular  weight  (XMWC*)  is  zero  for  the  cavity. 

ERROR  --  ZCOMB  must  be  less  than  chamber  length 

The  chamber  length  has  been  set  to  a nonzero  length,  and  then  combustion 
plane  (ZCOMB)  has  been  set  larger  than  the  chamber  length. 

ERROR  - ZE1  array;  NCAV  entries  must  be  greater  than  ZS1  and  less 
than  the  chamber  length 

Either  the  chamber  length  has  been  set  nonzero,  and  the  distance  from  the 
injector  face  to  the  end  of  the  absorber  segment  (ZE1)  is  greater  than  the 
chamber  length,  or  the  absorber  segment  end  (ZE1)  is  less  than  the  absorber 
segment  start  (ZS1). 

ERROR  - ZLOW  array;  NCAV  entries  must  be  set 
(less  than  backing  cavity  width  - WC) 

Cavity  type  is  1,  2,  or  3 and  ZLOW  is  either  larger  than  ZUP,  or  larger 
than  the  backing  cavity  width  (WC*). 

ERROR  — ZS1  array;  NCAV  entries  must  be  greater  than  0.0  and  less  than  the 
chamber  length 

The  chamber  length  has  been  set  nonzero,  and  the  start  of  the  absorber 
segment  (ZS1)  has  been  set  greater  than  the  chamber  length  or 
less  than  zero. 
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ERROR  — ZUP  array;  NCAV  entries  must  be  set  (less  than  backing  cavity 
width  - WC  and  greater  than  ZLOW) 

Cavity  type  is  1,  2,  or  3 and  ZUP  has  been  set  larger  than  the  backing 
cavity  width  (WC*). 
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APPENDIX  C 

NAMELIST  VARIABLE  DEFINITIONS 
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NAMELIST  VARIABLE  DEFINITIONS 

POTNT  ANALYSIS 

Namelist  Variable  Type  Range  Default  Path  Size  Description 

SMODELS: 


Q 

CO 

H 

cn 


<N 

HH 

fe 

X 


o 

< 

52 

m 

Q 

o 

S 

tu 

in 

Z 

O 

Oh 

c/3 

a 


u 

i 

T— < 

£ g 

Ei  E 

J nJ 

s i 

i a 

z o 

6 c 

O J 
p-  te 
' W 

Q 
O 

S 

os 


Z 

o 

H 


Wu&5hS 

ssiii 

UcAUcsU 


W 


Oh 

O 

OS 

Oh 


< 

a 

H 

W 

S 


I 2 S ogg  og 

Jo<c8  h§s 

“d|siS|9d 

3 ^ m m K « J < 


00 

WwO 

&-5fe885SS6  §25  g£93 

O^WPp^jP'  >7  C 55  n rr3  f-i  K/ 

“lyfeeSp' 


o 

CO 


O O 
CO  CO 


i— < in 


i in 


<N 


CO  CS  CN 


OS  OS  pS 

nj  rn  PJ 

o o o 

1 1 1 


X 

O o o o 
Jdoo 


oo  oo 

KKWWW 

UUWKK 


o o 

88, 

in  in 


<N 


O O 
SO  SO 

i’i*  *r 

a A o o 


o 

co 

I 

<N 


os 

a 

o 


3 B 

aaa  a 


O 

o 

o 

z 

o 

s 


J 

< 


o 

d 


o 

d 


o 

n 

A 


<U 

03 

3 

3 

w 

5 

V-H 

<2 

C 

O 

B 

<L> 

> 


e 

3?  ^ g 

a s s 


ON 

ON 


a 

u 

S 


o 

a 

2 


fell 


ip  i 

tse  g 


C-2 


a 


2 


< 
P u 
cn 

hH 

Pu 


< 

cn 

U 

Oh 


2 

x> 

o 

fc 

.2 

T3 

<U 

C/3 

3 

» 

O 

Z 

* 


& 

< 


POINT  ANALYSIS  ('Continued') 


wWO 
W J Z 
jhm 

o < -1 
zoj 

2ga 

ssg 

o^q: 

qjoS 

«hS 

>uS 

^w<r^ 


D 

H-l 

V 

Q 


poo  o o o o 

odd  o o d o 


o o o o o < 
od^dddo 


O -H  o o o o 


o 

d 


o o 
d d 


<uj 

Wi 

c 

ctf 

W 


9 VX9 


<<i.  < 

WWW  W WWW 
WWW  W WWW 


f 9 9 3 3 9 a 

ZaaoavoA  A © A V O A a 


cz 

?w 

<■" 
X 

u 


aaaaaa  a aa 


V\ 

•8 

*S 

> 


I 


Bj  sB 
NiSggSi 


&B 

8b5S5 

xxxxR 


&o 

H 05 

O Sss 

& al 


<D 

S 

cd 


S 

o 

w 

o 

05 


a 

o 

u 

05 


C-3 


POINT  ANALYSIS  (Continued') 


3 

<2 

<D  o o o o 

Q d>  d>  d>  d> 


p 

v—i  © 


o o o 
~ oo 


o o o o o o 
o OHoddo 


o 

o 


o o o o o 
dnodo 


<D| 

I S 5?  5?  5?  ^ 


j -i  j j 

_ < < < < 

« a a s s 


<L> 

i 

‘S 

> 


CO  & 

S Q 
X Q 


RPT/E0036.63-  App  C/3  2/6/91 
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Creating  Combustion  Gas  Tables 


Some  of  the  analysis  and  design  codes  of  the  ROCCID  package  require  combustion  gas 
properties.  To  keep  the  user  from  entering  these  properties  manually,  the  program  interpolates 
the  data,  from  tables  of  gas  properties  versus  mixture  ratio,  temperature  and  pressure  for  a given 
set  of  propellants.  Tables  of  equilibrium  gas  temperature  as  a function  of  mixture  ratio  and 
pressure  are  also  required.  The  code  already  provides  tables  for  the  following  propellant 
combinations: 


LOX/HYDROGEN 

LOX/METHANE 

LOX/PROPANE 

LOX/RP-1 

It  is  likely  at  some  point,  that  propellant  combinations  other  than  those  listed  above  will  be 
needed,  or  tables  with  better  resolution  for  the  above  propellants  will  be  required.  For  these  rea- 
sons the  ROCCID  program  has  the  ability  to  automatically  create  new  tables  using  an  ODE  (one 
dimensional  equilibrium)  module. 

To  make  new  tables  using  the  ODE  module,  first  enter  the  utilities  menu  off  the  ROCCID 
base  menu.  Next  enter  option  1 , the  ODE  module.  The  program  will  now  prompt  you  to  enter 
the  mixture  ratio,  pressure,  and  temperature  arrays  and  the  number  of  mixture  ratio  entries.  Enter 
these  data  using  standard  IFE  syntax.  The  array  sizes  are  limited  to  30, 6,  and  10  for  mixture 
ratio,  pressure  and  temperature  respectively.  Selecting  temperature  below  600  R is  not  recom- 
mended since  ODE  may  have  trouble  calculating  the  gas  properties  below  this  temperature.  Next 
the  module  will  ask  you  if  you  want  to  select  reactants.  Answer  Y for  yes.  The  program  will 
then  list  its  propellant  library  and  ask  you  to  pick  propellants.  For  each  propellant  chosen,  the 
program  will  display  the  ODE  propellant  card.  You  then  have  the  option  of  changing  the  refer- 
ence temperature,  enthalpy,  and  percent  composition  of  that  propellant.  Finally  before  the  ODE 
run  begins,  you  are  prompted  for  omitting  species.  Simply  press  RETURN  and  the  ODE  will 
begin. 

ODE  first  uses  the  TP  option  to  create  full  tables  of  viscosity,  molecular  weight,  Prandtl 
number,  thermal  conductivity,  specific  heat  ratio,  enthalpy,  and  entropy  versus  mixture  ratio, 
pressure  and  temperature.  Then  ODE  uses  a very  similar  run  deck  using  the  HP  option  to  create 
a table  of  equilibrium  temperatures  versus  pressure  and  mixture  ratio.  The  input  decks  are  saved 
for  the  above  to  run  in  files  COMTBL.INP  and  COMTB1.INP  respectively. 

After  ODE  has  completed  the  tables,  the  program  asks  the  user  to  input  a fuel  name  and  an 
oxidizer  name  (up  to  8 characters  each).  The  module  will  then  create  a file  based  on  the 
propellant  names  as  follows: 

<oxidizer  name>_<fuel  namo.DAT 

For  example,  if  the  oxidizer  is  LOX  and  the  fuel  is  RP- 1 the  filename  created  will  be 
LOX_RP-l.DAT. 

In  order  for  the  ROCCID  program  to  use  the  generated  file,  the  user  must  manually  enter 
the  filename  and  a one  line  propellant  descriptor  into  PROP.FIL,  contained  in  the  propellant 
property  library  directory.  It  is  important  that  the  filename  is  appended  first,  then  the  one  line 
descriptor.  Correct  additions  to  this  file  will  automatically  add  the  new  propellant  options  to  the 
Propellant  Menu  in  both  the  Point  Analysis  and  Point  Design  sections  of  the  ROCCID  code. 
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Files  Naming  Conventions 


FTT JR  TYPE  UNIT# 

♦.DAT  3 

*.INP  7 

*.HIS  8 

*.DES  9 

♦ OUT  10 

*.CNT  12 

*.DEF  13 

♦DBG  14 

♦.TDK  15 

PROPELL  ANT( 1 ) . D AT  20 

♦ PLi  21 

*.PL2  22 

♦ PL3  23 

*.COF  25 


DESCRIPTION 

Replay  files 

Point  analysis  input 

History/submodel  output 

Point  design  input 

Summarized  output 

Analysis  model  control  parameters 

Point  design  control  parameters 

Debug  output 

TDK  input  data 

Combustion  gas  data 

Steady  state  performance  plot  data 

Chug  stability  plot  data 

High  frequency  stability  plot  data 

MIPROPS  propellant  data 


(1)  Propellant  combinaions,  i.e.,  LOX_H2.DAT  OR  LOX_METHANE.DAT,  See  Appendix  D 
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Point  Analysis  Module  Flow  Charts 
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Figure  F-1.  Flowchart  of  Module  SSCI 
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Figure  F-2.  Flowchart  of  Module  LFCS 
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HFCS 


Figure  F-3.  Flowchart  of  Module  HFCS 
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Point  Design  Module  Flow  Charts 
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Figure  F-4.  Flowchart  for  Module  PRELIMD 
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Figure  F-5.  Flowchert  for  Module  PERFIT 


~ SHEARPD 


- SWIRLPD 


F-8 


Figure  F-6.  Flowchart  for  Module  CHUGIT 
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Module  HIFIT 


Figure  F-8.  Flowchart  for  Module  REDESIGN 
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Main  IFE  Flow  Charts 
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ANALYSIS  REQUEST  MENU  (BMENU) 

1.  Point  Analysis 

2.  Point  Design 

3.  Utility  Routines 

4.  Stop 
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ROCCID 


M16/D30/Lox-1 


F-14 


M16/D30/LOX-3 
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IFE  Point  Analysis  Section  Flow  Charts 
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POINT  ANALYSIS  MENU  OPTIONS  (ANAMNU) 

1.  Set  Variables 

2.  Run  Steady  State  Performance 

3.  Run  Low  Frequency  Stability 

4.  Run  High  Frequency  Stability 

5.  Plot  Current  Data 

6.  Previous  Menu 
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ANALYSIS  MENU 

(ANAMNU) 


F-18 


ANAMNU 


F-19 


F-20 


F-21 
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POINT  ANALYSIS  VARIABLES  MENU  OPTIONS 


1. 

Complete  Setup 

2. 

Set  Model  Selection 

3. 

Set  Operating  Conditions 

4. 

Set  Geometry 

5. 

Set  Injector  Element  Types 

6. 

Set  Core  Element 

7. 

Set  Baffle  Element 

(if  IBFE  =1) 

8. 

Set  Barrier  Element 

(if  IBRE  =1) 

9. 

Set  Fuel  Film/Cavity  Cooling  Element 

(if  IFFE  =1) 

10. 

Set  Stability  Aid  Type 

(if  MCHAM=1  or  2) 

11. 

Set  Manifold  Description 

12. 

Set  Baffle  Configuration 

(if  IBAF  =1) 

13. 

Set  1/4  Wave  Cavity  Configuration 

(if  ICAV  =1  and  MCHAM=1  or  2) 

14. 

Set  Helmholtz  Resonator  Configuration 

(if  ICAV  =2  and  MCHAM=1  pr  2) 

15. 

Set  FDORC  Variables 

(if  MCHAM=3) 

16. 

Set  Model  Control  Variables 

17. 

Previous  Menu 
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VARMNU 


M16/D30/LOX-4 


F-24 


SUBBQUUME  ELMPEE 
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F-26 


SUBROUTINE  OPCOND1 


F-27 


SUBROUTINE  PROPMNU 


F-28 


SUBROUTINE  GEOM2 


M16/D30/LOX-10 


F-29 


SUBROUTINE  INJ 


RIIBROUTINF  bafelm 


F-32 


SUBROUTINE  BARELM 


filIRROUTINE  FFCAVE 


Read  Fuel  Film 
Cavity  Cooling 
Element  Type 


Read  Number 
of  Elements 


Print  Error 


Erase  Figure 


F-34 


SUBROUTINE  STRAID 


Read 

IBAF  Flag  & 
NCAV  Flag 
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SUBROUTINE  RADBAF 


F-36 


SUBROUTINE  CAV 


F-37 


SUBROUTINE  HELMRS 
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CONTROL  VARIABLE  OPTIONS  (AUXMNU) 

1.  Set  DEBUG  Control 

2.  Set  HEFI  Control 

3.  Set  DIST3D  Control 

4.  set  CRP  Control 

5.  Set  LEINJ  Control 

6.  Set  COMBUST  Control 

7.  Set  FDORC  Control 

8.  Previous  Menu 
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AUXMNU 


M16/D30/LOX-6 
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IFE  Point  Design  Section  Flow  Charts 
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POINT  DESIGN  MENU  OPTIONS  (DESMNU) 


1 Set  Variables 

2.  Preliminary  Sizing 

3.  Steady  State  Performance  Iteration 

4.  Chug  Stability  Iteration 

5.  High  Frequency  Stability  Iteration 

6.  Plot  Output 

7.  Previous  Menu 
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POINT  DESIGN  VARIABLE  MENU  OPTIONS 


1.  Complete  Setup 

2.  Set  Models 

3.  Set  Design  Variables 

4.  Set  Fixed  Geometry 

5.  Set  Default  Variables 

6.  Set  Control  Variables 

7.  Previous  Menu 
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DESMNU  MENU 
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M16/D30/Lox-7 


DVMNU 


Return 
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DESIGN  DEFAULT  MENU  OPTIONS  (DEFMNU) 


1 . Set  Design  Control  Inputs 

2.  Set  Element  Parameters 

3.  Set  Stability  Aid  Parameters 

4.  Return  to  Previous  Menu 
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Menu 


DEFMNU 
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IFE  Utility  Programs 
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UTILITIES  MENU  (UMENU) 


1 . Create  ODE  Combustion  Gas  Tables 

2.  Display  Results 

3.  Return  to  Previous  Menu 
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The  utilities  module  of  ROCCID  contains  an  ODE  option  which  allows  calculation  of  thermodynamic  and  transport  gas  properties  for  various  rocket 
engine  propellants.  Complete  documentation  of  the  ODE  subroutines  have  been  published  in  "Two  Dimensional  Kinetics  (TDK)  Nozzle  Performance 
Computer  Program,  Volumes  I - ID"  by  Nickerson,  Dang,  and  Coats  of  Software  and  Engineering  Associates,  under  NASA  contract  NAS  8-36863 
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ROCCID  Installation  Instructions  for  VAX/VMS  Computer  Systems 

ROCCID  is  currently  configured  with  a multiple  directory  structure  (Fig.  H.l).  The  main 
directory  contains  the  executable  code  (ROCCID.EXE),  a linker  map  (ROCCID.MAP),  a com- 
mand file  to  link  the  code  (LINK_ROCCID.COM),  object  code  for  the  main  program 
(ROCCID .OBJ),  the  IFE  binary  control  data  file  (PROCESS.BIN)  and  four  object  libraries, 
(POINTA.OLB,  POINTD.OLB,  IFE.OLB  and  ODE.OLB)  and  the  date  stamp  (VDATE.BIN).  It 
also  has  6 subdirectories.  The  POINTA,  POINTD,  IFE  and  ODE  subdirectories  contain  the 
source  code  modules  for  those  respective  segments  of  the  code,  and  the  object  libraries  contain 
the  compiled  code  in  the  respective  subdirectories.  The  PROPDAT  subdirectory  contains 
propellant  property  and  combustion  gas  data  used  by  all  modules  of  the  program.  The 
SAMPLES  subdirectory  contains  sample  case  input  and  output  files,  and  the  UPDATE  directory 
contains  utility  code  used  to  generate/update  the  defaults  in  the  IFE  control  file,  PROCESS.BIN. 

Several  modifications  must  be  made  to  the  files  to  ensure  that  the  code  will  look  in  the  cor- 
rect place  for  files.  Table. H.l  contains  a list  of  routines  and  files  which  must  be  changed.  Data 
files  only  need  to  be  changed,  but  FORTRAN  files  (file  type  .FOR)  must  be  changed,  compiled 
and  replaced  in  the  appropriate  libraries  prior  to  running  the  command  file  to  link  ROCCID, 

LINK  ROCCID.COM.  In  order  to  minimize  potential  problems  during  the  initial  installation,  it 
is  recommended  that  the  contents  of  the  all  object  libraries  be  deleted  and  replaced  with  object 
code  generated  under  your  machine's  operating  system.  The  object  code  for  main  calling 
program,  ROCCID,  which  is  contained  in  the  IFE  subdirectory,  should  be  copied  to  the  main 
directory  and  must  noi  be  included  in  the  IFE  object  library  (IFE.OLB). 

The  VAX/VMS  message  file  ROCCID_TRACE.  MSG  is  contained  in  the  IFE 
subdirectory.  It  has  been  included  to  facilitate  error  handling,  and  it  generates  a traceback 
message  for  controlled  aborts  in  ROCCID.  To  compile  it,  use  the  VAX/VMS  message  compiles: 

Message  ROCCID_Traceback.  msg 

Then  insert  the  object  code  (.OBJ)  into  the  IFE  object  library.  If  you  are  not  running  on  a 
VAX/VMS  System,  you  must  either  A)  write  a similar  routine  for  your  operating  system  or 
B)  comment  - out  all  references  to  ROCCID-TRACEB  in  ABORT.  FOR. 

Accompanying  the  ROCCID  code  in  another  program  called  FILGEN  (located  in  subdirec- 
tory [.UPDATE]),  which  creates  a binary  file  of  variable  definitions  for  the  interactive  front  end. 
This  binary  file,  named  PROCESS.BIN  must  be  read  by  ROCCID  before  any  analyses  can  be 
executed,  therefore  FIT  .GEN  must  be  run  whenever  ROCCID  is  transported  to  a new  computet. 
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FILGEN  reads  an  ASCII  file  of  variable  definitions  (VARIABLES.DAT)  which  provides 
the  information  contained  in  PROCESS.BIN.  This  input  file  can  be  modified  to  add  new  vari- 
able names  or  definitions,  or  to  modify  the  attributes  of  current  variables.  The  number  of  vari- 
ables and  the  order  of  the  variables  must  not  change.  The  list  below  describes  the  parameters 
used  to  define  each  variable  in  VARIABLES.DAT : 

01. NAME:  Entry  for  the  variable  name  (upper  case  only) 

02. DESCR:  A brief  1 to  2 line  variable  description.  For  each  additional  line  use  the  end- 

of-line  character  as  the  line  continuation  character.  The  description  may 
not  contain  the  equal  symbol  (=). 

03.IND-VAR:  The  independent  variable  entry.  Indicate  if  the  variable  is  an  independent 

variable  (enter  FLAG,  COUNTER,  or  dependent  variable  name)  or  is  not 
(enter  NO).  Typically,  this  entry  is  used  to  describe  variable  arrays  used  to 
enter  tables  of  data,  e.g.  gas  property  tables,  wall  table  data,  initial  condition 
profiles,  etc. 

FLAG  indicates  that  the  variable  is  a flag 

COUNTER  indicates  that  this  variable  is  a COUNTER  for  arrays  (tables) 
input. 

YES  indicates  that  other  variables  are  required  inputs  in  conjunction  with  this 
variable. 

NO  indicates  that  there  are  no  other  variables  required  in  addition  to  this  vari- 
able. 

04. TYPE:  Defines  the  variable  type;  INTEGER,  REAL,  OR  LOGICAL. 

05. DIM:  The  length  of  array  variables  or  NONE  for  scalar  quantities. 

06. RANGE:  This  sets  the  variable  limits  of  applicability.  General  form  of  this  expression 

is  (lower  limit:upper  limit).  The  upper  and  lower  values  must  be  integers. 
Examples  of  acceptable  forms  include  (1:2),  (T:F),  >0,  <0,  MONOTONIC 
INCREASING,  and  MONOTONIC  DECREASING. 
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07. APPLIC: 

08. DESTIN: 

09. DEFAULT: 

10.SUBSET: 

ll.SUPERSET: 


Describes  the  general  application  of  variable.  Application  must  match  one  of 
the  applications  listed  in  Table  1. 

Name  of  $NAMELIST  to  which  this  variable  belongs. 

Default  value  for  this  variable.  Use  .FALSE,  or  .TRUE,  to  indicate  set 
defaults  for  logical  type  variables. 

The  name  of  variable(s)  which  makes  this  variable  a required  input.  If  this 
condition  does  not  exist  enter  NONE.  See  SUPERSET  for  more  details  on 
usage. 

Sets  condition  and  variable(s)  which  are  required.  Multiple  conditions  and/or 
options  are  specified  using  the  ()  to  enclose  condition  and  required  variable(s); 
and  commas  to  separate  multiple  sets  of  conditions  and  variable  requirements. 
Conditional  statements  are  separated  by  colons  and  variable  lists  are  separated 
by  commas.  If  these  conditions  do  not  exist,  enter  NONE.  Typically,  the 
SUPERSET/SUBSET  combination  is  used  to  describe  a variable  which  flags  a 
variety  of  options,  which  require  different  sets  of  variable  value  and  corre- 
sponding variables  to  be  used  in  conjunction  with  the  option  value;  the 
SUBSET  entry  describes  the  backward  tract  to  the  option  variable.  Two 
examples  are  given  below. 

1)  A variable  array,  ID,  is  read  in  and  is  only  used  if  the  number  of  array  ele- 
ments, NID,  is  specified.  For  the  variable  NID,  its  SUPERSET  is  the  variable 
ID.  For  the  variable  ID,  its  SUPERSET  and  SUBSET  entries  are  NONE. 

2)  An  option  to  specify  different  wall  contours  to  a nozzle  performance  pro- 
gram is  set  by  the  variable  IWALL.  IWALL  has  possible  values  of  1,3,  and  4. 
The  associated  variables  for  IWALL=1  are  RWTD,  THETA,  EPS,  RZNORM. 
For  IWALL=3,  the  required  variables  to  be  used  are  RWTD,  THETA, 
RMAX... 

SUPERSET:(IWALL=1  :RWTD,  THETA,  EPS,  ZNORM), 
(IWALL=3:RWTD,  THETA,  RMAX,  ZMAX.RZNORM), 
(IWALL=4:RWTD,  THETA,  THE,  RS,  ZS,  NWS,  RZNORN) 
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12.LEVEL:  Defines  the  usage  or  path  level.  Enter  1 for  commonly  used,  2 for  sometimes 

used,  and  3 for  rarely  usage  only. 

The  FILGEN  executable  is  created  by  .compile  and  link  all  the  FORTRAN  files  (file  type 
.FOR)  in  the  [.UPDATE]  subdirectory.  If  necessary,  modify  the  VARIABLES.DAT  file  to 
reflect  any  changes  to  the  variable  names  or  definitions.  The  sucessful  execution  of  FILGEN 
requires  a driver  file  MASTER.DAT,  which  must  reside  in  the  same  subdirectory  as  FILGEN. 
After  running  FILGEN,  copy  the  new  PROCESS.BIN  file  into  the  [ROCCID]  directory,  where 
ROCCID  will  read  it. 

If  you  have  any  questions  about  this  installation  procedure,  please  contact  Jeff  Muss  at 
(916)  355-3663. 
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TABLE  H.1 


ROCCID  Files  Which  Contain  Path  Statements 

File  Name:  [ROCCID. IFE]  AFILER.FOR 

OPEN  (UNIT  =12  ,FILE='DIS  K$3 : [UTILITY. ROCCID]DEFAULT.CNT' , 

9100  WRITE(6,*)  ”'DISK$3: [UTILITY.ROCCID]DEFAULT.CNT"  NOT  FOUND, 

File  Name:  [ROCCID.IFE]DASORC.FOR 

DATA  LIBNAM  /'DISK$3:[UnLITY.ROCCID.PROPDAT]REACTLIB.DAT7 

File  Name:  [ROCCID.IFEJDFILER.FOR 

OPEN(UNIT=13,FILE='DISK$3:[UTILITY.ROCCID]DEFAULT.DEF', 

30  OPEN(UNIT=12,FILE='DISK$3:[UTILITY.ROCCID]DEFAULT.CNT,, 

9100  WRITE(6,*)  '"DIS K$3 : [UTILITY . ROCCID]DEFAULT. CNT"  NOT  FOUND, 
9200  Write  (6  *)’  “DISK$3:[UTILITY.ROCCID]DEFAULF.DEF”  NOT  FOUND,’, 

File  Name:  [ROCCID. IFE] DFILES. FOR 

30  OPEN  (UNIT=  1 2,FILE=’DI  S K$3 : [UTILITY . ROCCID]DEFAULT.  CNT' , 
9100  WRITE(6,*)  "'DISK$3:[UTILITY.ROCCID]DEFAULT.CNT"  NOT  FOUND, 

File  Name:  [ROCCID.IFEJDPROPMNU.FOR 

OPEN(UNIT=45,FILE='DISK$3:[UTILITY.ROCCID.PROPDAT]PROP.FIL', 

File  Name:  [ROCCID.IFE]GETCOM.FOR 

DATA  DIRECT  /’DISK$3:[UTILITY.ROCCID]COMFIL.DAT7 

File  Name:  [ROCCID.IFE]PROPMNU.FOR 

OPEN (UNIT=45 , FILE='DISK$3:[UTIL^TY.ROCCID.PROPDAT]PROP.FIL,, 

File  Name:  [ROCCID.IFE]REACTC.FOR 

DATA  FILNAM  /'DISK$3:[UTILITY.ROCCID.PROPDAT]REACTLIB.DAT7 
File  Name:  [ROCCID.  IFE]  RE  ADIT.  FOR 

DATA  FILNAM  /'DISK$3:[UTILITY.ROCCID]PROCESS.BIN7 
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TABLE  H.l  (continued) 

ROCCID  Files  Which  Contain  Path  Statements 

File  Name:  [R(X:CID.IFE]TITLE.FOR 

OPEN(UNIT=91,FILE=,DISK$3:[UTILITY.ROCCID]VDATE.BIN’, 

File  Name:  [ROCCID.ODE]ODEMAIN.FOR 

OPEN(UNIT  = 25,FILE='DISK$3:[UTILITY.ROCCID.PROPDAT]JANNAF.DAT', 

File  Name:  [ROCCID.POINTA]FLUIDP.FOR 

3 OPEN  (UNIT =25  ,FILE=’DI  S K$3 : [UTILITY . ROCCID.  PROPD  AT]  PH2.  COF, 

4 OPEN(UNIT=25,FILE=’DISK$3:[UTILITY.ROCCID.PROPDAT]METH.COF', 

7 OPEN  (UNIT =25,FILE='DISK$3 : [UTILITY.  ROCCID.PROPDAT]  02.  COF' , 

9 OPEN (UNIT=25,FILE='DISK$3: [UTILITY. ROCCID.PROPDAT]C3H8. COF', 

File  Name:  [ROCCID.POINTA]PINPUT.FOR 

OPEN(UNIT=57,FILE=’DISK$3:[UTILITY.ROCCID]DEFAULT.CNT', 


File  Name:  [ROCCID.POINTA]PROPSET.FOR 

PROPFILE='DISK$3:[UTILITY.ROCCID.PROPDAT]7/OX(:IOEND)//’_7/ 


File  Name:  [ROCCID.PROPDAT]PROP.FIL 

DISK$3 : [UTILITY.  ROCCID. PROPD  AT]LOX_RP- 1 .DAT 
DISK$3 : [UTILITY . ROCCID  .PR0PDATJL0X_H2.DAT 
DISK$3 : [UTILITY.  ROCCID.PROPDATILOX_METHANE.DAT 
DISK$3 : [UTILITY.  ROCCID.PROPDATlLOX_PROPANE.DAT 


RFI7B0036.63-App/ 


H-8 


2/6/91 


ROCCID  UNIX  TRANSPORTING  INSTRUCTIONS 


Transporting  RQCCID  to  a UNIX  Computer 

ROCCID  is  available  for  the  VAX  computer  only.  If  you  wish  to  use  ROCCID  on  any 
other  computer  you  must  transport  the  code.  Although  transporting  codes  typically  is  not 
difficult,  it  requires  a strong  understanding  of  both  FORTRAN  and  the  FORTRAN  compiler 
on  your  computer  in  order  to  do  it  efficiently.  A short  discussion  of  FORTRAN  statements 
which  are  likely  to  cause  problems  follows. 

OPEN  Statements 

The  VAX/VMS  compiler’s  OPEN  statement  arguments  are  often  incompatible  with 
UNIX  OPENs.  For  example,  to  make  a VAX/VMS  OPEN  statement  so  the  file  can  only  be 
read  (to  prevent  overwriting  the  file)  the  command  is 

OPEN(....STATUS='OLD’,  READONLY....) 

The  same  statement  on  a SUN/UNIX  is 


OPEN(....STATUS='READONLY'....). 


Another  likely  syntax  problem  on  the  OPEN  statements  is  the  VAX/VMS  CARRIAGE 
CONTROL  statement  which  will  probably  have  to  be  deleted. 

To  ensure  the  OPEN  statements  are  compatible  with  your  compiler,  first  consult  your 
FORTRAN  manual  to  find  the  correct  formatting,  then  "grep"  through  the  ROCCID  source 
code  and  check  each  OPEN  statement  in  the  source. 

Along  with  the  OPEN  statements  the  file  paths  (sub-directory  tree)  must  also  be 
changed  to  a UNIX  format.  An  improper  path  is  the  most  likely  cause  if  the  code  cannot  open 
a file. 
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REAL*  16  Declarations 


One  subroutine  in  ROCCID  uses  two  REAL*  16  variables,  which  will  not  be  supported  on 
most  UNIX  computers.  The  existing  SUN  version  of  ROCCID  runs  fine  with  the  variables 
declared  as  REAL*8,  so  that  fix  will  probably  work  on  other  UNIX  machines.  These  variables 
are  found  in  the  function  CPI  in  the  FLUIDP.FOR  file. 

DATA  Statements 

Another  common  transporting  problem  is  the  setting  of  hollerith  variables  in  DATA 
statements.  For  example,  a VAX/VMS  DATA  statement  of 

DATA  BS/’08'X/ 

reverses  to 

DATA  BS/X'08'/ 
on  the  SUN  computer. 

READ  and  WRITE  Statements 

READ  and  WRITE  statements  can  also  require  modification  to  work  on  different 
computers.  For  example,  a SGI  computer  requires  a NAMELIST  read  to  be  formatted 

RE  AD(  1 0,NML=CRPC) 

ROCCID  currently  is  written  as 

READ(10,  CRPC). 


GRAPHICS 

Another  problem  in  transporting  the  ROCCID  code  is  the  graphics.  Since  transporting  the 
graphics  to  different  computers  is  a BIG  problem,  it  is  best  to  comment  out  all  graphics 
subroutines  and  just  run  the  code  without  graphics.  The  following  is  a list  of  subroutines 
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which  should  be  commented  out: 


PLOTM 

TEKMOD 

TEKDIA 

FIG* 

ERASE 

ANSI 


The  interactive  front  end  of  ROCCID  was  developed  on  a SUN  computer,  therefore,  most 
of  the  source  should  transport  to  most  UNIX  computers  relatively  easily.  An  expert  programmer 
should  be  able  to  transport  the  code  within  one  man-week. 
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APPENDIX  1 
SAMPLE  CASE  OUTPUT 
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POINTA  Sample  Case  ACASE1 
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ROCCID  POINT  DE8IGN  TEST  CASE  1 
LOX/RP-1  LIKE  DOUBLET  PAIR  WITH  FIXED  PC 
APPROXIMATES  -0100  SUBSCALE  DOUBLET 
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AXIAL  PRESSURE  PROFILE 
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ELEMENT  1 18  TYPE-LOL 
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CHAMBER  NOZZLE  OPTIMIZATION  RESULTS 
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ROCCID  POINT  DESIGN  TE8T  CASE  1 
LOX/RP-1  LIKE  DOUBLET  PAIR  WITH  FIXED  PC 
APPROXIMATES  >0100  SUBSCALE  OOUBLET 
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CHAMBER -NOZZLE  OPTIMIZATION  RESULTS 
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ROCCID  POINT  DESIGN  TE8T  CASE  1 
LOX/RP-1  LIKE  DOUBLET  PAIR  WITH  FIXED 
APPROXIMATES  0100  SUBSCALE  DOUBLET 


e n c « 
— k - o 
® * 
n n e v 
*-  • k • 

*■  o ^ o 


Bede 

— M — M 

m » • o 

x - i - 


fill 

• m • « 

» - » - 
c a c a 

— • — • 

a o a.  © 

E • E « 


z x u.  a 
“ K O M 

• 2 « o» 

«U)3 


o o o o o o 
O o o o o o o 
u.  o o o o o o 


o o < 

0 Ul  Z I 
=3  00  < 


o e O c 
o m o « 

O * o 

9 ® 


T)  C T)  C 

0 3 0 3 


u o o o o o o 
-J  o o o o o o 
u.  o a o o o o 


O O O o o o o 
o o o o o o o 
O O O © O © o 


UJ  — lit  — 

a»  k t» 

n C r C 
a>  « o • 


mi 

° 1°  I 

* • • • 
o a u q 

— C - C 

— a - a 

- E X E 
o - o - 


N N 3 S 

iiii 

55hk 

8SSS 

U.U.U.U. 

x x x x 

SSiS 

Ul  III  III  u 
J 4 J J 

8 8 88 

K H h H lillU 
'•<<<<  IM  N •• 

?88888&£ 

?5555Sg| 

H4XJK4X- 

JuOuiOttiOx 

a u.  2 2 £ 


1-47 


Tau -Mu  I t I pi I • r -1 . 000 


o *- 

tfl  « 


a a 

• • 

c c 
o o 


► 


o »- 
< « 
Ul  • 

£2 


z 

o 


co  » 
3 3 

O O 
< < 
e ac 


22 

O O 


to  • 
*4  to 
a c* 

h.  OD 

o r> 


r*  N 

• • 


* « 


0) 

u. 

«l 

Ik 

a u. 

|| 

I 

1 

• « 

tO  O 

»-  f- 
< < 
N N 

« 

o 

* 

o 

« • 
o w 

|| 

O III 

O III 

V £ 

> > 

< m 

^ * 
K ■ 

• • 

• *» 
H • 

• 88 

ss 

ik  Ik 

1 

• • 

oi  > > 

X X 

k.  u 

Ik  •> 

- * 
• • 

Ik  — 

- • 
• o 

||| 

u 

mM  J 

c o 

J; 

* o 

Is 

K K K 

< o o 

z in  Ul 
1 -> 

|| 

ui  z z 
K - - 
3 

L-  1 W 

H*  K 

3 3 

ik 

ik 

r w j 

x Ul  O 

i u. 

o 

*- 

§i 

p-  ►- 

m 

m 

< < 

it 

Ul 

o 

O 

•0 

K 

ff 

III 

i 

_j 

i 

u 

8 

*- 

«R 

Mil 

St 

»- 

l 

to  « 
M 10 

1 

a. 

• 

• 

o 

«• 

t 

m m • 

to  ft.  ft. 
O 

M • « 

i 

§ 

| 

• N 

r»  m 
o «o 

K 

z 

< 

■ 

2 

■ 

s 

►-  * ■ 

< m #o 

i • • 

o 

7 7 

c c 

.j 

- 

H 

x 

s 

Sm 

in 

i 

a. 

• 

V c 

— • 

3 O 

• 

tj  e 

— • 

3 O 

K 

UJ 

a. 

O 

PC 

DROP- 

DROP- 

• 

§ 

l~ 

< 

2 

Ul 

< 

X X 
K*  I- 

22 

O' 

- X> 

V 

- XI 

Ul  UJ 

n 

■ 

-J 

Ul  Ul 
.j  -j 

-J  • 
■ ♦> 

• o 

• • 

-J  • 
R — 

• O 

• • 

3 3 

< CO  «5 
- CO  0) 

? 

s 

885 

_i  — — 
1—  t— 

X c 

a.  - 

X c 
a - 

a.  ac  c 
ft.  a. 

UJ 

i- 

Ul 

M 

CO  < < 

- N N 

lu 

| 

CD 

| 

Ui  h t- 

^ h h 

- o o 

ft  IV  Ui 

u. 

O 

>* 

a. 

c 

■ 

X 

O 

_j 

N 

Ui  z z 

o 

< 

FUEI 

H 

z 

UJ  ■■  ■ 

_j 

Ul 

3 

Ik 

X 

0 

PC  F 
FUEL 
OX 

5 j x 
uj  ui  O 
-J  3 
Ul  LL 

1-48 


VAPORIZATION  CALCULATIONS 
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AXIAL  PRESSURE  PROFILE 
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C*  EFFICIENCY  CALCULATIONS  (OOK) 
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TIME  LAO  CALCULATION*,  Ml  1 1 I •••end* 
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LOW  FREQUENCY  COMBUSTION  STABILITY  CALCULATIONS 


o 

■o 

e 


O 


§ 

a 

z» 

« 

8 


S 

o 


o 

Ul 

c 

o 


A 

ft* 

ft* 

ft* 

a 

A 

<0 

<0 

A 

0 

0 

O 

O 

O 

0 

O 

0 

0 

O 

4 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

UJ 

UJ 

UJ 

Ul 

UJ 

Ul 

UJ 

UJ 

Ul 

UJ 

0 

0 

O 

O 

O 

0 

O 

O 

O 

O 

« 

4 

ft* 

A 

4 

0 

nr 

ft* 

*0 

O 

ft. 

0 

€> 

O 

0 

« 

• 

4 

ft* 

ft* 

K 

O 

IO 

O 

<0 

at 

O 

O 

4 

ft* 

ft* 

ft* 

ft* 

4 

0 

to 

n 

4 

ft 

A 

ft* 

ft* 

ft* 

a 

n 

10 

*0 

A 

O 

O 

O 

O 

O 

0 

0 

0 

0 

O 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

UJ 

Ul 

UJ 

UJ 

Ul 

Ul 

Ul 

UJ 

Ul 

Ul 

0 

O 

O 

O 

O 

O 

0 

0 

O 

O 

0 

O 

« 

ft* 

O 

4 

a 

0 

O 

O 

« 

ft. 

O 

O 

r- 

ft. 

0 

0 

O 

ft. 

to 

O 

e 

0 

0 

0 

0 

ft- 

O 

ft* 

ft* 

ft* 

ft* 

4 

ifl 

in 

m 

Ol 

ft* 

ft* 

ft* 

*m 

ft* 

«o 

0 

(0 

CO 

A 

A 

O 

O 

0 

0 

0 

O 

0 

0 

0 

0 

O 

O 

4 

+ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

Ul 

UJ 

Ul 

UJ 

Ul 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

0 

O 

0 

O 

0 

O 

0 

0 

0 

0 

O 

O 

4 

ft- 

0 

to 

O 

h* 

4 

4 

m 

N 

O 

0 

4 

T* 

ft* 

N 

O 

O 

O 

CO 

0 

4 

O 

a 

O 

ft- 

O 

A 

O 

4 

ft* 

0 

Is. 

O 

4 

ft* 

ft* 

ft* 

ft* 

« 

O 

O 

w 

10 

O 

*- 

a 

ft* 

ft* 

ft* 

ft* 

ft* 

O 

co 

IQ 

A 

A 

A 

O 

O 

0 

O 

O 

O 

O 

0 

O 

O 

O 

O 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

Ul 

UJ 

UJ 

UJ 

Ul 

UJ 

O 

O 

O 

O 

O 

O 

O 

0 

O 

O 

O 

O 

4 

O 

a 

O 

4 

K 

• 

4 

4 

O 

O 

4 

a 

O 

ft* 

O 

• 

m 

O 

« 

0 

ft* 

ft. 

O 

0 

O 

ft- 

O 

O 

0 

4 

4 

9 

O 

ft* 

4 

ft* 

ft* 

ft* 

ft* 

ft* 

O 

» 

O 

to 

ft* 

O ft" 


o o 

o o o o a 
+ + ♦ ♦ + 
Ul  Ul  Ul  UJ  Ul 

o © o o o 
o o o o o 
o e o o o 
O N C « o 


*-  0 0 0 0 

OOOOO 
• 4 4 4 4 

Ul  UJ  Ul  Ul  UJ 

OOOOO 
OOOOO 
OOOOO 
O O ft*  * O 

« M «l  A « 


r O O O O 
OOOO 
• 4 4 4 


♦ 4 
Ul  Ul  Ul  Ul  Ul  UJ 
OOOOOO 
OOOOOO 
OOOOOO 
O K A M o o 


r O O O O r 
OOOOOO 
• 4 4 4 4 4 
Ul  Ul  Ul  Ul  Ul  Ul 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 


1-  A A 

000 
4 4 4 
UJ  Ul  Ul 
OOO 
O K o 

oo^*_______, 

aoK««toh»oao»*v- 


UJ  Ul 

~ o 


Ul  UJ 

■ o 


A A A A A A 

OOOOO  o 

4 4 4 4 4 - - 4 

UJ  UJ  UJ  Ul  Ul  Ul 

OOOOO 


O r*  A o 
OOOO 
4 4 4 + 


oooooomk 

OttNSSAAID 


► o.  O 

a -1 


§<5-5 

1 z>  z - 


■ « a a. 
x z n. 


« 

o 

& 


uj  1 1 { 3 I j £ c 


O 

** 

ft* 

A 

O 

A 

0 

O 

O 

O 

* 

T- 

O 

O 

0 

O 

O 

O 

O 

0 

0 

O 

0 

0 

O 

0 

0 

4 

4 

4 

4 

4 

4 

4 

Ul 

Ul 

Ul 

Ul 

Ul 

Ul 

Ul 

Ul 

Ul 

w 

Ul 

Ul 

Ul 

Ul 

O 

0 

O 

O 

O 

O 

• 

« 

O 

0 

0 

O 

0 

0 

0 

O 

0 

O 

O 

O 

O 

4 

A 

O 

0 

0 

ft. 

K 

0 

4 

O 

0 

O 

O 

O 

O 

• 

O 

0 

O 

4 

A 

O 

A 

4 

a 

O 

O 

ft* 

• 

*- 

0 

O 

- 

O 

ft* 

A 

A 

4 

*- 

A 

¥*■ 

A 

O 

0 

O 

_i 

H 

1 

• 

< 

O 

8 

I 

* 

K 

■ 

■ 

■ 

< 

X 

_* 

I 

Ul 

6 £ 

1 

Ul 

■ 

• 

£ 

z 

Ul 

x 

X 

Ul 

Ul 

0. 

< 

1 

Z Q 

0. 

-J 

2 

Ul 

0 

m 

0 

g 

K 

K 

i 

1- 

ac 

_) 

< 

s 

O 

X 

Ul  O 

0 0 

► 

I- 

Ul 

z 

O 

Ik 

000 
* 4 

Ul  Ul  Ul 


1-67 


e o o 
♦ • • 


A K « 
f-  K O 

0 M 0 


T ^ o 
• MO 

m o 


o o o o o 


» « r a o 

r i-  « C O 

• 0 • * o 


• 

* 

0 

o 

* 

•0 

ID 

o 

m 

ft 

m 

ft 

*• 

• 

ft 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

a 

o 

o 

♦ 

• 

• 

• 

♦ 

• 

♦ 

• 

• 

• 

• 

■ 

• 

* 

• 

• 

UJ 

m 

UJ 

U1 

III 

UJ 

UJ 

UJ 

UJ 

UJ 

IU 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

* 

0 

V 

o 

ft- 

o 

• 

K 

o 

•* 

o 

o 

ID 

o 

o 

• 

o 

• 

o 

w 

• 

0 

* 

• 

o 

• 

* 

* 

m 

o 

o 

• 

• 

o 

• 

• 

• 

• 

• 

0 

• 

ft- 

• 

ft- 

o 

• 

K 

• 

o 

o 

o 

ft 

• 

o 

ft 

• 

• 

ft 

• 

• 

• 

<* 

T» 

• 

• 

• 

* 

o 

• 

•* 

• 

o 

* 

• 

o 

o 

*- 

• 

o 

« 

o 

*- 

• 

o 

ID 

o 

• 

2 

o 

• 

M O • O O ft-  O 
k e «•  o o t o 
v o • o o o o 

O t N O O t » 


•0  r-  rOCt-NNrrWANWNr 

oooooooooooooooo 

♦ 4-  • ■ • +♦♦♦•  + ♦♦♦♦* 

inuiuimuiiuyimiuuiuiMuiuiuiMJ 

• •M0th«0«r00000f» 

ereanceoanocoooa 

0Mr-*-«©0T-®«0T-NW0ft- 

OAat«AiOAaNr>(l«KNV 

*«00©h-00^4<»«-0'-*-0 


o 


o 

o 

O 

o 

0 

* 

* 

0 

O 

* 

* 

0 

O 

ft 

0 

ft 

M 

0 

M 

r* 

0 

ft 

o 

o 

O 

o 

O 

o 

O 

O 

O 

O 

e 

o 

O 

O 

O 

o 

o 

o 

e 

O 

O 

O 

o 

o 

+ 

♦ 

4 

♦ 

♦ 

• 

• 

♦ 

♦ 

• 

* 

• 

• 

• 

• 

» 

• 

• 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

Ul 

UJ 

UJ 

Ul 

w 

UJ 

UJ 

UJ 

UJ 

Ul 

UJ 

UJ 

UJ 

0 

0 

0 

r- 

-*  * 

0 

ft- 

o » 

0 

< 

ft 

o 

ft 

M 

0 

W 

ft 

ft. 

ft- 

• 

• 

• 

• 

o 

o 

0 

0 

o 

0 

o 

0 

ft- 

ft- 

0 

ft- 

ft-. 

0 

ft- 

ft- 

o 

O 

0 

0 

* 

0 

0 

• 

ft- 

o 

0 

0 

0 

o 

0 

0 

r 

0 

0 

y- 

0 

0 

K 

ft- 

• 

0 

ft 

0 

T* 

* 

o 

ft 

0 

ft- 

0 

o 

ft 

0 

ft 

■* 

0 

0 

■* 

0 

0 

0 

0 

0 

ft 

• 

ft- 

'T 

* 

r 

• 

0 

ft- 

0 

V 

0 

0 

0 

0 

0 

0 

0 

0 

ac 

I SUiUJ  ■ * * I 

■ il  I 1_  I j - ■ -i  -i  -i  « z «■■•  ■ i 

1 m *-  UJ  - U.  S z < ■ K h -i  I -1  111  • QQ  J J <11  < I i ■ > I «• 

ZOIIIIZOZOU.QKOOO&1  J » d L VZO^ZSZKR  !&!<<■  I •L<<I(|(III{C 

SSss^iSiSsssszssl&isAii^szsssisiixssiiiiSsssH^zsss^sssissgBS 

££xxxxxx30®0000003<©5o3tt>i-irocLHi-xxuji m<CxiTS£u.ilzii.u L(kZXXXXXX<Cx<SX< 


1-68 


9 . 3000E  * 02 
5*2 . 6000E+09 
5*1 . 2000E+00 


1-69 


9500 

. 0000E  * 01 


o o o o o o 
o o o © © o 
♦ ♦ + + + + 
ui  ui  ui  in  ui  uj 
o o o o o o 
o o o o o o 
o o o o o o 
o o o o o o 


o o o o o o 
o o o o o o 
♦ ♦ + + + + 
UJ  UJ  UI  Ui  UI  UI 

e o o o o o 
o o o o o o 
o o o o o o 
o o o o o © 


o o o o o o o 
o o o o o o o 
♦ ♦♦♦♦♦♦ 
ui  Ui  uj  ui  uj  uj  uj 
o o o o o o o 
o o o e o o o 
o o © o © o o 
o o o o o o o 


OOOOOOOr-OOOO 

oooooooooooo 
+ • ♦ + ♦ + 
munuujujujujuiiiJUJhiui 
oooooooooooo 
oooooooooooo 
oooooooooooo 
oooooooooooo 


ooooooonnnm 
o o 1-0  0 

o o r o 

o o *> 


I (C  h-  -J  C X • I H h K 

s 1 1 ? s ! i i i i i i i 1 s s i « I a i i 1 2 & 2 2 2 

1 2 : S 2 5 £ 1 1 8 3 8 1 ? S 5 i & 5 5 5 5 t S 2 5 £ 5 


lilt-  Q 

t-  *-  h -j  o 


1-70 


% o o o 
o o o o 
• ♦ ♦ ♦ 
ui  ui  ui  ui 

K o O O 
m e o o 
*-  o o o 


« o o o 
o o o o 
* ♦ ♦ ♦ 
III  UJ  Ui  Ui 

o o o e 
* o © o 

K O O O 

r*  o o o 


ttOOO  ID  O o o 

oooo  ooop 

•444  • 4 ♦ ♦ 

UI  III  UI  UI  UI  UI  UI  III 

*-  o o o oooo 

kooo  oooo 

t e o e oooo 


o o o o oooo 

eooo  oooo 

oooo  oooo 


1-71 


% TOTAL  FLOW  RESISTANCE  INERTANCE  CAPACITANCE  TIMELAQ 


t e o o 
— o e o o 

o • ♦ ♦ ♦ 

HI  IU  U Ul  UJ 

ao  « o o o 

w OOOO 
• O O O 


#0  0 0 0 
o o o o 
• ♦ + ♦ 
lil  UJ  Ul  Ul 

* o o o 

•9000 

o © o o 


<0000  99000 

0 — . oooo  oooo 

* o ♦♦♦  • ♦ + ♦ 

j m UJ  Ul  Ul  111  Ul  Ui  Ul  UJ 

Sm  oooo  oooo 

— *-  o o o o o o 

— *-  o o o oooo 


oooo  oooo 

Ul  Ul  Ul  UJ  Ul  UJ  Ul  Ul 

OOOO  oooo 

k t*  k r»  K N N ► 


o o oooo 

o o oooo 

4 + .444 

Ul  Ul  III  Ul  Ul  Ul 

o o oooo 

o o oooo 

o o o o o 


o o oooo 

o o oooo 

4 ♦ ♦ ♦ ♦ ♦ 

Ul  UJ  Ul  111  Ul  Ul 

o o oooo 

o o oooo 

o o « o o o 


UJ  IU  Ul  Ul  UIUIUIUI 

oooo  oooo 

oooo  oooo 


Ul  Ul  Ul  UJ 

oooo 

K rw  r*>  K 
N N N M 


Ul  Ul  Ul  Ul 
M <M  tt  <M 
M M « N 

oooo 


oooo 

oooo 

oooo 


oooo 

oooo 

oooo 


oooo  oooo 
oooo  oooo 
oooo  oooo 


Ul  z 

I ....  g 

• " X 

Ul  Ul  UJ  K 

0.0.0. 

> > > z 

I-  i-  i-  o 


> > > K 

5552 


1-72 


( PS  I A ) MAX.  AMPLITUDE  FREQUENCY  (HZ)  PHASE  MAMIN  (DEO) 
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DESIRED  MAMINAL  PC  - 900.00  PS  I A 

CURRENT  MAM  I NAL  PC  - 4S4.0S  PS  I A 

CURRENT  CHUQ  MAMIN  - S4S.94  PS  I 

CHUQ  FREQUENCY  - 721.07  HZ 
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LOW  FREQUENCY  COMBUSTION  STABILITY  CALCULATIONS 
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ROCC1D  POINT  DESIGN  TEST  CASE  1 
LOX/RP-1  LIKE  DOUBLET  PAIR  WITH  FIXED  PC 
APPROXIMATES  -0100  8UB8CALE  DOUBLET 
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(P8IA)  MAX.  AMPLITUDE  FREQUENCY  (HZ)  PHASE  MARGIN  (DEG) 


22S222S0000000000®0°00000000000«®ai 

oooooooooooooooo°oooooooooooooo25S 


2222S0000000000°ooooooo 


000000099 


« « « « 
o o o o 
♦ ♦ + ♦ 
UJ  ui  ill  hi 
r « 9 « 
O K r K) 

»-  o o ® 


SS?SS????000000°ooo 

ujujuiiiiujujujuiuiiiiujmiiiuiiiiiuuiiiiuj 

OKOtKOnODrAtONOOONO 
• NN«tt»t«NWrO0MIN«St« 


t t t t « n » 


UlUIIUUIUIUlUiUJUlUlllJlilUiUiUlUiUlUiLll 

222£222?,<>2*,',,>,00<DW®'0 

rz2»SBONtO8WK,“,0Nft*» 

K««aoi-c**iA**iAioei0eeee 


uiuiuiiuiiiuiiijuiujuiuiuiiimuiui 


n»iOiO««r>r 


fifiifiisssssssssssssssssssssssss 

U.WUjUJUJJutuuiUlUIUIUlUIIUUJuliiilSiuiSlIllilliullui.Si, 


NOINrrrrrr  t-  w *-  ^ 


1-81 


CURRENT  CHUG  MARGIN  - 242.23  PS  I 

CHUG  FREQUENCY  • 769.30  HZ 


ROCCID 

ROCket  Combustor  ln*#r«ot»v«  Design  Methodology 
Version  22-FEB-01 


mm  « « » < 

o o o o o < 

44  4 4 4 

tai  ui  ui  u»  ui  i 

o o O O O I 

« e o *-  n*  i 

O e*  03  O «D 

e o e a • 


O O O O r> 

O O O O O 

4 4 4 4 4 

111  UI  111  UI  111 

o e o o o 

o o o o o 

<30  0 0 0 

O M « O O 


M M M M M » 

O O O O O O 

4 4 4 4 4 4 

UI  Ui  UI  UI  UJ  UI 

O O O O O O 

• O • M O 4 

e n a a r n- 

O • • to  *-  o 


1-  0 0 0 0 

o o o o o 

-4  4 4 4 
III  UI  IU  UI  UI 

o o o o o 

o o o o o 

o o o o o 

o O N 4 O 


wMM«*-nrtaai 

0000000004 

444444444 

UIUIUIUIUJUIUIUJUII 

0000000004 

4.fGi-004>440l 

4r«SO®»«» 

oK0M044.®r*-' 

MMMMOAOOO 


i-OOOOr- 

o o o o o o 

• 4 4 4 4 4 

UI  UI  UI  UI  III  UI 

o o o o o o 

o o o o o o 

o » o o o o 

o r-  • m o o 

• r n a • u 


< * UI 
U 1C  j 
- < 

»-  < o 

00  0-  a 

UI  (0 
H I-  3 
UI  03 

5 ffl  o 

582  - 


2 *•  i ® 


MMWMOOOOI 

OOOOOOOO! 

44444444 

UJ  UI  Ui  UI  Ui  UI  UI  UI  I 

OOOOOOOOI 

004K0440I 

r«aa««oNi 

4.0004400' 


««««»««» 

oooooooo 

44444444* 

UIUIUIUIUIUIUIUI 

oooooooo 

OOOOOlOniN 

lOtoN^ennio 


r-OOOOT- 

O O O O O O 

• 4 4 4 4 4 

UI  UI  ID  ill  111  UI 

e o e o o o 

o o o o o o 

o o o o o o 

o o o o a o 


« O T-  M o 1-  0 0 0 0 

ooooo  ooooo 

44444  *4444 

UI  UI  UI  UI  UI  UIUIUIUIIUI 

1-0000000000 
v-OOOOMOOOOO 
40000  OOOOO 

e « f 4 O © M 4 ® O 


oa  xuiaz  • Q < 

— flCOO<OC-»QOO. 

Q"CQX3ZZa.« 


004.00004*-  <0  *-  I-*  O 04*400 



Nrr««aena.OaM4Mr  r-  »-  « W 4 
CC  — 1 


• •10. 

Z Z Z U.  N 


U|  ui  HI  UI  UI  UI  UI 
OOOOOOK 
4M  0 0 0 4.N 

• 01-1-004 
fw  • 1-  T-  O 1-  O 


ul  • i c 3 $ | £ | 

^OCLXlIxUJZt 


8g*%  • -i 

|_  < ffi  UI  I 

< a ■ ■ z 2 Q M • 

u i i unu  a.  < • z O i J 

uiepKZ»--iiouio>ui 

e»«fr£cSK<UXOOK3 


1-82 


FDJ«  • . 6345E  * 02 
PCD*  9.1000E-01 
p |H-  1.1 491E - 01 
FI  A*  9.0000E401 


« r t n e o 

o o o o o o 

♦ • » ' ♦ 

III  III  III  III  UJ  ill 

A « « 1-^0 

a e e k a o 

K « O MOO 


N ^ • i-  •»  r 


«■  t A « 

o o o o 


o 

o 

♦ 


• ••AO 

e r A A o 
« • A A O 
K A A A O 


a 

A 

A- 

a 

o 

a 

a 

io 

O 

a 

a 

a 

a 

a 

a 

r* 

a 

a 

O 

O 

O 

O 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

o 

♦ 

♦ 

♦ 

III 

Ul 

Ul 

Ul 

Ul 

ui 

Ul 

Ul 

ui 

Ul 

Ul 

Ui 

Ul 

Ul 

a 

in 

Ul 

Ul 

Ul 

ui 

A 

a 

a 

• 

o 

a 

k 

a 

a 

o 

a 

a 

r- 

a 

a 

*► 

a 

a 

v 

9 

• 

a 

A 

o 

9 

* 

a 

a 

o 

r 

a 

a 

a 

a 

a 

a 

a 

tf> 

10 

K 

a 

o 

« 

K 

* 

o 

9 

a 

a 

a 

a 

a 

a 

a 

a 

A 

*■ 

■A 

« 

a 

• 

• 

• 

a 

o 

*- 

A 

a 

a 

a 

a 

a 

K 

o 

a 

K 

m 

o 

a 

a 

K 

r 

a 

o 

a 

A 

T“ 

V* 

a 

o 

a 

OOOOOOOOO 

lUttllUUIUIUIUIUIUI 
OAMOAOONO 
OAKOr>OOtO 
OKt^OOOOOO 
• ©OAKO«AW 


f r A A M A A 

O O O O O O O 

♦ • ♦♦♦♦♦ 
111  III  U)  UJ  III  »n  up 

• r O O O O O 

• ft  O a o o o 

C A tt  r A A O 

• K f A A N A 


© o a a t n o 

ooooo  ooo 

♦ ♦ ♦ • • • • ♦ 

III  III  III  Mil  III  m y|  UJ 

AArAtAAAO 
• A r t f A K O 

A A A A A tr  A O 

A A r A C OOO 


VAAOAAAAAAAAA 

OOOOOOOOOOOOO 

• • • 

UlUIUIUJUIUIUlUillllllUiUllll 

aaaoooaoo«i>on 

• 40C4OOKKOKKOKK 
raooaAraar>KAr 
aAAOKAAKAAAAA 


c 

• • UJ  Ul 

* t ■ r*  z . » ■ Z i • • i a a 

50aa»a5oiou.QaQ°0*3  ai  i » . i ! i - - - ! i nioizzicza  «{><<•  i a2<<acECa  a i£i 

3 2 28  ? 5S2iJ  2 s 5 S it  2 2 ! 4 1 £ £ 3 g =i  2 £ g 5 8 1 2 i 3 S § 5 J g !S  ^ * 2 SS  2 3;i?J§§§S8  S§ 

U.U.XXXXXXUI*-«a*aaa<»O<(90O0S>H(EOa.l-l~XXUiK-~aaU.XIi.xi!u.Ul.2LkU.U.ZXXXXXX<S:X«CX 


1-83 


8.3000E-02 
8*2.80006+03 
8*1 . 2000E+00 
8*2.80006+03 
8*1 .20006+00 


o 

+ 


o o o o o 
o o o o e 
o o o o o 
o o o o o 


o 

o 


e o o o o 
o o o o o 
♦ + ♦ + + 
m m HI  Ul  41 
o o o o o 
o o o o o 
e o o o o 
e o o o o 


■ a 01  r 
« in  2 « g 
NNShO 


1-84 


SHORT*  F 

EPS  I L*  2 . 0000E+01 


o 


o e 
e o 
♦ ♦ 
yi  iu 
o e 
o o 
o o 
o e 


O 10  M»  o O 


H 

3 

ft. 


gx  R I h h I 
I « l<XH«HD«UIQ 
a«flo2Juit.u.ikic2 
ShhhHUJUIX>><OUJ 

uulz-czzzzSn 


o 

o 


1-85 


ROCC10  POINT  068 1 ON  TEST  CASE  1 
LOX/RP-1  LIKE  DOUBLET  PAIR  WITH  FIXED  PC 
APPROXIMATES  -0100  SUB8CALE  DOUBLET 
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CURRENT  MARGINAL  FC  - 070.00  Ft  I A 

CURRENT  CHUG  MARGIN  - **0.01  Ft  I 

CHUG  FREQUENCY  • 700.47  H2 


HI  OH  FREQUENCY  COMBUSTION  STABILITY  CALCULATIONS 
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* TOTAL  FLOW  RESISTANCE  INERTANCE  CAPACITANCE  TIME LAO 
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HIQH  FREQUENCY  COMBUSTION  STABILITY  CALCULATIONS 
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ROCCID  POINT  OEBION  TEST  CASE  1 

LOX/RP ♦ 1 LIKE  DOUBLET  PAIR  WITH  FIXED  PC 

APPROXIMATES  -0100  SUBSCALE  DOUBLET 
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% TOTAL  FLOW  RESISTANCE  INERTANCE  CAPACITANCE  TIME LAO 
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HIOH  FREQUENCY  COMBUSTION  STABILITY  CALCULATIONS 
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ROCCID  POINT  DESIGN  TEST  CASE  1 
LOX/RP-l  LIKE  DOUBLET  PAIR  WITH  FIXED  PC 
APPROXIMATES  -0100  SUBSCALE  DOUBLET 
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% TOTAL  FLOW  RESISTANCE  INERTANCE  CAPACITANCE  TIME LAO 
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BCaiN  CALCULATIONS  FOB  1 TANOfNTIAL  + 0 RADIAL  MODE 
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AXIAL  PRESSURE  PROFILE 
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CHAMBER -NOZZLE  OPTIMIZATION  RESULTS 
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REDESIGNED  CHAMBER  RESULTS 
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AXIAL  PRESSURE  PROPILE 
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EFFICIENCY  CALCULATIONS  (ODK) 
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CHAMBER *NOZZLE  OPTIMIZATION  RESULTS 
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ROCCID  POINT  DESIGN  TEST  CASE  1 
LOX/RP-1  LIKE  DOUBLET  PAIR  WITH  FIXED 
APPROXIMATES  0100  8UB8CALE  DOUBLET 
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BEGIN  STEADY  STATE  COMBUST  I ON  ANALYSIS 
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VAPORIZATION  CALCULATIONS 
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OVERALL  VAPORIZATION  EFFICIENCIES 
FUEL-  91  - 98%  OX-  99.16« 


MASS  DISTRIBUTION  PROFILE 
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VAPORIZATION  CALCULATIONS 
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OVERALL  VAPORIZATION  EFFICIENCIES 
FUEL-  91.99%  ox-  ••.10% 


MASS  DISTRIBUTION  PROFILE 
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AXIAL  PRESSURE  PROFILE 
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I.  INTRODUCTION 


Aerojet  TechSystems  Company  is  currently  conducting  a 
program  (contract  F04611— 85-C— 0100)  to  formulate  a procedure 
(Ref.  1)  which  can  accurately  characterize  injector  designs 
for  large  thrust  (0.5  to  2.0  million  pounds)  high  pressure  (500 
to  3000  psia)  LOX/hydrocarbon  engines.  In  this  procedure, 
rectangular  cross-sectional  (hereafter  will  be  refered  to 
simply  as  rectangular)  combustion  chambers  are  to  be  used  to 
simulate  the  lower  tranverse  frequency  modes  of  the  large  scale 
chamber.  This  requires  the  development  of  stability  models  for 
rectangular  chambers. 

As  part  of  the  development  of  models  for  use  in  combustion 
stability  analyses  of  rectangular  chambers,  a computer  code. 
High  Frequency  Intrinsic  Stability  Analysis  (HIFI)  has  been 
developed  to  calculate  the  burning  admittances  and  the  n-t 
neutral  stability  curves.  The  code  can  be  applied  not  only  to 
rectangular  chambers  but  also  to  cylindrical  chambers. 

1.1  High  Frequency  Intrinsic  Combustion  Stability 

Combustion  instability,  characterized  by  organized 
pressure  oscillations  in  rocket  combustion  chamber,  can  cause 
severe  vibrations  on  various  engine  system  components  and 
payloads.  In  addition,  combustion  instabilities  may  cause 
excessive  mechanical  stresses  and  heat  loads  on  the  injector 
and  combustion  chamber  walls. 

Combustion  instabilities  have  been  generally  classified 
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according  to  their  frequency  range:  low,  intermediate  and  high 

frequency.  Significant  efforts  have  been  devoted  to  the 
understanding  of  high  frequency  instability  because  it  is  the 
most  common  in  new  engine  developments  and  is  the  most 
destructive.  High  frequency  instability  results 'from  the 
coupling  between  the  combustion  process  and  the  acoustic  waves 
in  the  chamber. 

1.2  Concentrated  Combustion  and  Sensitive  Time-Lag  Approach 

^naly^ical  models  capable  of  characterizing  combustion 
instability  are  obviously  useful  and  valuable  to  engine 
designers  during  the  development  stage.  Basic  approaches  in 
the  modelling  of  high  frequency  combustion  stability  are 
described  in  reference  3.  The  concentrated  combustion  and 
sensitive  time-lag  approach  developed  by  Crocco  (Ref.  4)  is 
dicussed  here  since  it  is  adopted  in  the  present  study.  In 
this  approach,  the  burning  of  propellant  elements  is  assumed  to 
occur^  instantaneously  as  shown  in  Figure  1.1.  The  time  period 
between  the  instant  of  the  injection  and  the  burning  of  the 

propellant  element  is  called  the  total  time  lag,  "t  . All 

, I r 

physical  factors,  e.g.  pressure^  temperature^ that  affect  the 
burning  process  are  assumed  to  correlate  with  the  value  of  the 
local  pressure.  Consequently,  the  effects  of  these  physical 
factors  can  be  implicitly  taken  into  accounts  by  relating  the 
burning  rate,  m^  to  the  instantaneous  local  pressure,  p.  The 
relation  between  mb  and  p is  in  the  form: 

^ pa 

where  n is  called  the  (pressure)  interaction  index.  The  value 
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FIGURE  1.1  : DIAGRAM  SHOWING  COMBUSTION  TIME  LAG  CONCEPT 
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of  the  interaction  index  is  assumed  to  be  zero  during  a time 
period  called  "insensitive"  time  lag,  and  discontinuously 
becomes  n during  a time  period  called  "sensitive"  time  lag,r. 
The  sum  of  the  insensitive  time  lag  and  the  sensitive  time  lag 
equals  to  the  total  combustion  time  lag.  Figure- 1.2  is  a 
schematic  showing  the  relation  between  the  interaction  index, 
the  insensitive  time  lag,  the  sensitive  time  lag  and  the  total 
time  lag.  This  sensitive  time  lag  approach  was  first  applied 
by  Crocco  (Ref.  4)  in  one-dimensional  combustion  stability 
analyses  with  both  concentrated  combustion  and  distributed 
combustion.  As  the  names  imply,  the  concentrated  combustion 
approach  assumes  that  the  combustion  concentrates  in  a plane  at 
some  distance  from  the  injector  face  whereas  in  the  distributed 
combustion  approach  the  combustion  distributes  arbitrarily 
along  the  combustion  chamber  axis,  in  the 
concentrated-combustion  approach,  the  combustion  plane  divides 
the  chamber  into  two  regions:  the  first  region  upstream  of  the 

combustion  plane  where  the  mean  velocity  is  assumed  to  be  zero 
and  the  second  region  downstream  of  the  combustion  plane  where 
the  velocity  is  non-zero  and  is  assumed  to  be  constant.  This 
greatly  simplifies  the  analysis  since  the  equations  which 
describe  the  flow  dynamics  in  the  two  regions  have  no  source 
terms,  it  is  obvious  that  the  concentrated  combustion  approach 
is  not  as  realistic  as  the  distributed  combustion  approach  but 

it  greatly  simplifies  the  mathematical  treatment  of  the 
analysis. 

Crocco' s original  study  was  subsequently  continued  and 
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FIGURE  1.2  : SCHEMATIC  SHOWING  THE  RELATION  BETWEEN  THE  PRESSURE 
INTERACTION  INDEX  0,  THE  INSENSITIVE  TIME  LAG  Tj,  THE 
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improved  by  several  authors.  Reference  3 describes  subsequent 
studies  following  Crocco's  original  study.  The  reference  also 
gives  a brief  history  of  the  development  of  the  sensitive  time 
lag  theory.  The  study  of  Crocco  was  first  extended  to 
tranverse  modes  by  Scala  (Ref.  5) . Reardon  then  introduced 
the  velocity  interaction  index  to  include  the  sensitivity  of 
the  burning  rate  to  the  tranverse  components  of  the  oscillating 
gas  velocity  (Ref.  6).  This  study  also  accounts  for  the 
effects  of  the  non-uniform  distribution  of  the  propellant 
injection.  The  assumption  of  iow  Mach  number  in  the  chamber, 
which  are  used  in  all  aforementioned  models,  was  eliminated  in 
the  studies  of  longitudinal  modes  by  Mitchell  (Ref.  7)  and  by 
Harrje  (Ref.  8.)  and  of  tranverse  modes  by  Smith  (Ref.  2). 

The  concentrated-combustion  and  sensitive  time-lag  theory 
has  been  used  extensively  at  Aerojet.  Its  evolution  at  Aerojet 
resulted  into  a computer  code  known  as  IFAR  (Ref.  9)  . This 
computer  code  has  been  used  in  combustion  stability  analyses  of 
virtually  all  liquid-propellant  rocket  engines  developed  in 
recent  years  at  Aerojet.  In  general,  the  prediction  capability 
of  the  code  is  satisfactory. 

1.3  Objectives  of  the  Present  Study 

The  objective  of  the  present  work  is  to  provide  a computer 
code  to  predict  the  burning  admittances  and  the  n and  X 
neutral  stability  curves  for  rectangular  chambers.  Although 
the  objective  is  to  provide  a computer  code  for  use  in 
combustion  stability  analyses  of  rectangular  chambers,  the  code 
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developed  in  the  present  study  can  also  be  used  for  cylindrical 
chambers.  The  code  has  many  new  features  which  are  not 
available  in  IFAR.  These  features  are: 

* Values  of  nozzle  admittances  can  be  input  in  tabular 

9 

forms  as  in  IFAR  or  calculated  internally  by  the  program. 
If  the  nozzle  admittances  are  calculated,  the  program  will 
automatically  generate^  a table  that^ajrS  to  be  used  for 
any  subsequent  runs  in  which  the  values  of  the  nozzle 
admittances  do  not  change.  The  nozzle  admittance  values 
are  calculated  at  the  frequencies  at  which  the  burning 
admittance,  its  corresponding  n and  ~C  are  calculated, 
therefore  no  interpolation  errors  are  introduced  into  the 
solutions . 

* The  user  is  not  required  to  determine  the  Mach  number 
apriori  since  it  is  calculated  internally  by  the  program 
given  the  specific  heat  ratio  and  the  contraction  ratio. 

* Variables  used  in  the  theory  and  in  the  computer  code 
are  retained  in  the  forms  of  complex  variables.  For  users 
who  wish  to  understand  the  theory  or  to  make  modifications 
to  the  code,  this  feature  makes  the  theory  described  in 
the  next  section  and  the  logic  used  in  the  code  easy  for 
them  to  follow. 

* The  code  generates  output  files  in  the  format  which  can 
be  input  to  a computer  graphic  program,  for  example 
TELLEGRAF,  to  plot  the  calculated  results. 
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* The  Mach  number  in  the  chamber  is  no  longer  assumed  to 
be  small. 

1.4  Approach 

The  present  study  follows  the  approach  taken  in  the 
development  of  IFAR  (Ref.  9) . The  difference  between  the 
present  study  and  IFAR  is  in  the  calculation  of  chamber 
admittances.  IFAR  calculates  the  admittances  by  solving  the 
pressure  wave  equation  which  has  been  derived  on  the  assumption 
of  low  Mach  number  in  the  chamber.  This  assumption  is  also 
used  to  implement  the  boundary  condition  to  the  solutions  of 
the  equation  and  in  the  calculation  of  the  burning  admittance. 
The  present  study  calculates  chamber  admittances  by  solving  the 
wave  equation  for  a velocity  potential  function  (see  Refs.  10 
and  11) . This  has  the  advantage  that  the  Mach  number  in  the 
chamber  is  no  longer  assumed  to  be  small,  thus  the  code  can  be 
used  for  chambers  having  small  contraction  ratios. 
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II.  THEORY 


The  theory  in  the  present  study  follows  closely  reference 
9 to  calculate  the  cavity  admittance,  the  burning  admittance 
and  the  n-t  neutral  stability  curve.  The  nozzle-admittance 
model  of  reference  11  is  extended  to  calculate  the  chamber 
admittances. 

2.1  Theory  Description 

First,  the  continuity  and  momentum  equations  are  written 
for  an  ideal  gas.  The  thermodynamic  variables,  i.e.  pressure 
density,  etc.,  are  decomposed  into  their  mean  and  fluctuating 
components.  These  components  are  then  normalized  by  the 
corresponding  steady-state  values.  The  mean  components  do  not 
vary  with  time  and  are  assumed  to  be  uniform  in  the  regions 
upstream  and  downstream  of  the  combustion  plane  although  they 
may  be  discontinuous  at  the  combustion  plane.  The  fluctuating 
components,  however,  vary  in  all  directions  and  are  functions 
of  time.  The  velocity  is  also  decomposed  into  a mean  and  a 
fluctuating  component.  The  mean  velocity  is  assumed  to  be  only 
in  the  axial  direction  while  the  fluctuating  component  can  vary 
in  all  directions.  The  fluctuating  components  of  the  velocity 
and  the  thermodynamic  variables  are  assumed  to  be  so  small  that 
the  products  of  any  two  components  can  be  neglected.  As  a 
result,  equations  for  the  fluctuating  components  are  linear  in 
time,  thus  their  oscillations  can  be  assumed  to  be  sinusoidal. 
The  flow  is  assumed  to  be  irrotational  and  the  fluctuating 
velocity  components  are  defined  to  be  the  gradients  of  a 
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velocity  potential  function.  The  continuity  and  momentum 
equations  and  an  isentropic  relation  are  combined  to  yield  a 
governing  equation  for  the  velocity  potential  function.  The 
resulting  equation  is  then  written  in^cartesian  coordinate 
system  for  rectangular  chambers  and  in^cylindrical  coordinate 
system  for  cylindrical  chambers. 

Using^separation  of  variables  technique,  the  partial 
differential  equation  governing  the  evolution  of  the  potential 
function  is  separated  into  three  second-degree  ordinary 
differential  equations.  Using  boundary  conditions  at  the 
chamber  walls  two  of  the  equations  in  the  tranverse  and  lateral 
directions  are  solved  explicitly  to  give  the  eigenvalues  that 
correspond  to  tranverse  and  lateral  resonance  modes  for 
rectangular  chambers.  Similarly  for  cylindrical  chambers, 
boundary  conditions  at  the  chamber  wall  and  at  the  axis  of 
symmetry  are  used  to  calculate  the  eigenvalues  that  correspond 
to  radial  resonance  modes.  The  eigenvalues  that  correspond  to 
tangential  resonance  modes  in  cylindrical  chambers  are 
determined  by  requiring  the  solutions  to  the  differential 
equation  being  single  value  functions.  A general  solution  is 
obtained  by  solving  the  differential  equation  in  the  axial 
direction.  The  boundary  condition  at  the  injector  face  is  then 
applied  to  calculate  the  chamber  admittance  upstream  of  the 
combustion  plane.  Using  the  nozzle  admittance  as  the  boundary 
equation,  the  chamber  admittance  downstream  of  the  combustion 
plane  is  calculated.  A Continuity  condition  is  then  applied  at 
the  combustion  plane  to  relate  the  burning  admittance  to  the 
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upstream  and  downstream  chamber  admittances.  Finally,  the 
pressure  interaction  index  , n and  the  sensitive  time  lag, X 
for  neutral  stability  condition  is  calculated  using  the 
expression  derived  by  Crocco  in  reference  3 which  relates  n and 
Tf  to  the  burning  admittance. 

2.2  Equation  Derivations  and  Solutions 

The  continuity  and  momentum  equations  for  an  inviscid 
compressible  gas  are: 

2L  ^ v'cru*)  = ° > (1> 

and  + <2> 

where  t is  the  time,  p is  the  gas  density,  u is  the  gas 
velocity  and  p is  the  gas  pressure,  the  notation  + denotes 
vector  quantities,  and  the  supercript  * denotes  demensional 
quantities  .^Additional  equation  needed  to  close  the  above 
conservation  equations  is  the  following  isentropic  relation: 


JP*  _ A? 


where  S'  is  the  gas  specific  heat  ratio.  Equations  (1),  (2)  and 

<3)  can  be  written  in  non-dimensional  form  as: 


2P 

at 


+ v(r5) 


zr  O 


? 


-v  — Vp  = 
r 1 


o 


(4) 

(5) 
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and 


tfAp  = Tf  cXf 


(6) 


In  equations  (4),  (5),  and  (6)  the  density  and  the 
pressure  are  non-dimensionalized  by  their  corresponding  mean 
values;  the  velocity  by  the  sound  speed;  length  scales  by 
some  characteristic  length,  e.g.  chamber  radius  or  chamber 

half-width;  and  time  by  the  sound  speed  and  the  chracteristic 
length. 

All  non-dimensionalized  dependent  variables  are  then 
decomposed  into  the  mean  components  which  are  time  indepedent, 
and  the  perturbation  components  which  are  time  depedent,  i.e: 

a=U+u',  P = \ + P 

where  the  bar  and  the  superscript  • denote  the  mean  and  the 
perturbation  components,  respectively.  It  should  be  noted 
that  the  mean  velocity  u shown  in  the  above  equation  has  been 
non-dimensionalized  by  the  sound  speed  and  thus  it  is  the  same 
as  the  Mach  number. 

Assume  there  exists  a velocity  potential  function,  <f>, 
such  that: 


u'  = V<£> 


(8) 


and  that  the  flow  is  irrotational , equations  (4),  (5)  and  (6) 
can  be  combined  to  yield  the  following  relation: 
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P'=  (S-  + C«-v)*). 


(9) 


and  the  following  equation  governing  the  evolution  of  the 
velocity  potential  function: 

f 

_ ^ - V <p  + u — ° • (10) 

Assume  that: 


. , st 

f , <f>e 


an 


where  8 is  a complex  quantity  with  its  imaginary  part 
representing  the  angular  frequency  of  the  oscillation  and  its 
real  part  representing  the  amplification  coefficient  of  the 
oscillation.  Equation  (10)  can  then  be  written  as: 

s*<f>  - V*  4>o  + U [v ( U .V4>)]  + V<^  - O . (12) 


Assume  the  mean  flow  velocity  exists  only  in  the  axial 
direction  and  its  magnitude,  u is  constant.  Equation  (12)  can 
be  written  ^^cylindrical  coordinate  system  for  cylindrical 
chambers  and  in  ^cartesian  coordinate  system  for  rectangular 
chambers.  In  each  case,  the  separation  of  variables  technique 
is  used  to  separate  the  equation  into  three  ordinary 
differential  equations,  of  which  the  equation  in  the  axial 
direction  has  the  following  form: 


x ,(">  _ 10>  , , n i 

4>  - ( 5%  5^)4^  = 
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(13) 


where  the  superscripts  (0  and  (")  denote  the  first  derivative 
and  the  second  derivative  of  ^ with  respect  to  x,  the  axial 
coordinate.  is  the  component  of  <j>  that  is  depedent  only 
on  x.  For  rectangular  chamber  cases,  the  value  of  S„  is: 


(14) 


where  b is  the  ratio  of  the  chamber  thickness  to  the  chamber 
width.  The  values  of  for  cylindrical  chamber  cases  are  given 
in  table  2.1  for  selected  values  of  m and  n.  The  subscripts  m 
and  n correspond  to  the  m-^  tangential  (tranverse  or  width) 
and  the  n1^  radial  (lateral  or  thickness)  resonance  modes. 

In  rectangular  chamber  cases,  the  values  of  are  determined 
by  applying  appropriate  boundary  conditions  at  the  chamber 
walls  to  the  solutions  of  the  differential  equations  in  the 
tranverse  and  the  lateral  directions.  In  cylindrical  chamber 
cases,  the  values  of  are  determined  by  requiring  the 
solution  to  the  differential  equation  in  the  circumferential 
direction  being  a single  value  function  and  by  applying 
appropriate  boundary  conditions  at  the  chamber  wall  and  at 
the  axis  of  symmetry  to  the  solution  of  the  differential 
equation  in  the  radial  direction. 


The  axial  equation  (Equation  12)  is  applicable  to  both 
regions  upstream  and  downstream  of  the  combustion  plane  in 
a cylindrical  or  a rectangular  chamber.  Applying  the 
boundary  condition  at  the  injector  face  to  the  solution  of 
the  equation  yields  the  following  expression  for  the  upstream 
chamber  admittance: 
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n 


0 

1 

2 

3 

4 

5 

6 

7 

8 


1 

0 

i 

1 

1 

2 

• 

3 

4 

1 

1 

0.0000 

3.8318 

7.0155 

10.1734 

13.3238 

1 

1 

1 

1.8413 

5.3313. 

8.5263 

11.7059 

14.8635 

1 

3.0543 

6.7060 

9.9695 

13.1705 

16.3476 

1 

4.2013 

8.0151 

11.3459 

| 14.5858 

17.7890 

1 

5.3175 

9.2825 

| 12.6820 

| 15.9640 

19.1961 

1 

6.4154 

| 10.5199 

| 13.9873 

| 17.3127  | 

20.5755 

1 

7.5012 

| 11.7348 

| 15.2681 

| 18.6375  | 

21.9318 

1 

8.5778 

j 12.9324 

| 16.5295 

j 19.9419  | 

23.2682 

1 

9.6475 

| 14.1155 

1 

| 17.7739 
1 

| 21.2290 
1 

24.5874 

1 

1 

Table  2.1:  Selected  values  of  . 
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L (^)(e"Xf.  £^0  - ypQ^-Xe^Ve  ' <Xf) 

where  the  subscript  I denotes  the  quantities  evaluated  at  the 
location  immediately  upstream  of  the  combustion  plane,  u'  is 


the  axial  component  of  the  local  (non-dimensionalized) 
perturbation  velocity,  and  xp  is  the  distance  between  the 
injector  face  and  the  combustion  plane.  Other  quantities  in 
the  equation  are  defined  as  follows: 


= |f  S^  + Siv  } (16) 

and  vfy  is  a quantity  that  is  determined  from  the  boundary 

conditions  at  the  injector  face.  This  quantity  is  described 
below. 

For  cylindrical  chamber  cases,  suppose  that  the  admittance, 
which  is  defined  as  the  ratio  of  the  local  axial 
(non-dimensionalized)  perturbation  velocity  to  the  local 
(non-dimensionalized)  pressure  perturbation,  at  the  injector  face 
can  be  expressed  as: 


Y 


Yr(r)Ys(«)  , 


(17) 


where  r and  are  the  radial  and  tangential  coordinates, 
respectively.  Then  for  a spinning  m^  tangential  mode,  the 
expression  for  vfy  can  be  written  as: 


( Yr  (r)T^  (sm^r)  rdr^  Y$(-6) 


2TtL  XVs-»r>rJr  J'23 


(18) 


and  for  a standing  tangential  node,  it  can  be  written  as: 

(C  Yr(O^CC^r)rJr)(  *>)  ^ 

P TcJ  T^Cs^O^r 

In  the  above  expressions  for  ^ , Jw  is  the  m"^  order  Bessel 
function  of  the  first  kind. 

For  rectangular  chamber  cases,  the  expression  for  ^ is 
written  as: 

% = j ' Y,(,>  (■ [v + o)  ^ <“) 

In  equation  (20) , it  has  been  assumed  that  the  admittance  at 
the  injector  face  varies  only  in  the  y (width)  direction  and 
that  oscillations  in  the  z (thickness)  direction  do  not  exist, 
in  the  cases  where  oscillations  in  the  z direction  do  exist, 
the  value  of  ^ will  be  different  from  that  given  by  the  above 
expression.  In  general  cases,  the  difference  and  its  effects 
on  the  overall  solutions  are  believed  to  be  small,  thus  the 
model  is  considered  not  to  be  limited  to  two-dimensional 

oscillations. 

It  should  be  noted  that  the  admittances  of  acoustic  cavities 
are  included  in  Yr(r)  , Y*00  and  Y^y)  in  equations  (18),  (19) 

and  (20).  In  the  present  study,  the  width  of  the  cavities  is 
assumed  to  be  small  compared  to  the  radius  or  the  width  of 
the  chamber.  Furthermore,  the  cavities  are  assumed  to  locate 
at  the  circumference  of  the  injector  of  the  cylindrical  chamber 
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or  they  are  assumed  to  locate  at  the  edge  of  the  width  of  the 
rectangular  chamber.  These  assumptions  simplify  the  analysis 
since  they  allow  the  above  expressions  for  typ  being  approximated 
analytically. 

Applying  the  boundary  condition  at  the  nozzle  entrance 
(nozzle  admittance)  to  the  solution  of  equation  (13)  yields 
the  following  expression  for  the  downstream  chamber  admittance: 


, -vr.Xc, 

x,e  1 + ^tAe  n 


-v  ( s e'  + sa  e"***°»  + * u 


(21) 


where  the  subscript  II  denotes  the  quantities  evaluated  at  the 
location  immediately  downstream  of  the  combustion  plane,  and 


X 


= (Gs  ~ V > 

*2.=  -~1  (us-|  sSsJ-.O-S'-))  ,> 

-A  - _ -t-  -t-  * > 

vV  is  the  nozzle  admittance  and  x^  is  the  distance  from 
the  combustion  plane  to  the  nozzle  entrance. 

Continuity  is  then  applied  at  the  combustion  plane  to 
give  the  following  expression  for  the  burning  admittance: 


(22) 


(23) 


(24) 


Vi  « f V _ y 

S ^ Tx  ' 


(25) 
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where  mC  is  the  burning  rate  perturbation  normalized  by  its 
mean  value.  In  this  expression,  the  non-dimensional i zed 
pressure  perturbations  upstream  and  downstream  of  the 
combustion  plane  are  assumed  to  be  equal . 


The  concentrated— combustion  analyses  tend  to  give  results 
that  indicate  the  combustion  is  less  stable  than  the  more 
realistic  distributed-combustion  approach  (private 
communication  with  J.  Fang) . In  an  attempt  to  compensate  for 
this  problem,  a constant  1.0  is  added  to  the  right-hand  side 
of  equation  (25)  in  reference  9;  predictions  using  this 
practice  appear  to  correlate  better  with  test  data  (private 
communication  with  J.  Fang) . For  these  reasons,  the  present 
study  follows  the  practice. 


Finally,  n and  *t  can  be  related  to  the  real  part,  and 

. n 


the  imaginary  part, 


rv  =• 


of  the  burning  admittances 

: -c 


— L 

U> 


*/*  - v* 

where  to  is  the  imaginary  part  of  s which  is  the  angular 
frequency  of  the  oscillation. 


(26) 

(27) 
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III.  PROGRAM  DESCRIPTION 


The  High  Frequency  Instability  Analysis  computer  program 
HIFI  consists  of  a main  program  and  eight  subroutines  which  are 
described  in  the  next  section.  Program  input  and  output  are 
described  in  Sections  2 and  3 . A listing  of  the  computer  code 
is  provided  in  appendix  A.  Input  and  output  for  a sample  case 
are  provided  in  appendix  B. 

3.1  Program  Description 

All  input  to  the  code  are  made  in  the  main  program.  The 
input  include  chamber  and  nozzle  geometry,  location  of  the 
combustion  plane,  chamber  gas  properties,  cavity  geometry, 
cav*ty  9as  properties,  chamber  acoustic  resonance  mode,  and 
frequency  range  of  interests.  For  each  frequency  in  the 
specified  range,  the  main  program  calculates  chamber  admittance 
^P®^3-®*®  the  combustion  plane  after  calling  subroutines  TED 
and  CAP2  to  calculate  cavity  admittances.  Next,  it  calls 
subroutine  NOZADM  to  calculate  nozzle  admittance  or  it  obtains 
the  nozzle  admittance  value  from  a table  generated  by  a 
previous  run.  If  the  nozzle  admittance  is  calculated,  its 
value  is  written  to  a file  NOADTA.DAT  for  future  runs  in  which 
the  nozzle  geometry  and  resonance  modes  are  the  same  as  the  run 
that  generates  the  nozzle  admittance  file.  After  the  nozzle 
admittance  value  is  determined,  the  main  program  calculates 
chamber  admittance  downstream  of  the  combustion  plane. 

Finally,  it  calculates  and  output  the  burning  admittance  and 
the  corresponding  values  of  n and  . In  addition,  it  outputs 
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the  value  of  the  chamber  admittances  upstream  and  downstream  of 
the  combustion  plane. 

- Subroutine  CALADM:  called  by  subroutine  NOZADM  to 

calculate  nozzle  admittance. 

- subroutine  CAP2:  calculates  cavity  admittances.  This 

subroutine  is  taken  from  the  computer  code  IFAR  (Ref.  9) . 

- Subroutine  INTGRT:  called  by  subroutine  NOZADM  to  perform 

numerical  integration.  See  reference  11  for  more 
description  of  this  subroutine. 

- Subroutine  MACH:  calculates  Mach  number  as  function  of 

area  ratio  and  specific  heat  ratio  using  sucessive 
iteration  techniques. 

- Subroutine  NOZADM:  "main"  program  of  the  computer  code 

for  calculating  nozzle  admittance.  See  reference  11  for 
more  description  of  this  subroutine. 

- Subroutine  NOZINI:  calculates  values  of  variables  that 

are  independent  of  the  frequency  and  are  frequently  used 
by  subroutine  NOZADM.  This  reduces  computer  time  by 
avoiding  repititive  calculations  of  these  variables  every 
time  NOZADM  is  called. 

- Subroutine  NOZTAB:  obtains  the  value  of  nozzle  admittance 

from  a previously  generated  table. 

- Subroutine  TED:  calculates  the  effect  of  cavity 

distribution  with  respect  to  mode  orientation.  This 
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subroutine  is  taken  from  the  computer  code  I FAR  (Ref.  9) 
3 . 2 Input  Description 


Input  to  the  computer  code  is  divided  into  four  groups: 
the  first  group  is  the  problem  description;  the  second  group  is 
the  namelist  CNTRL  which  specifies  chamber  type  (rectangular  or 
cylindrical)  and  file  generation  options;  the  third  group  is 
the  namelist  INPUT  which  specifies  the  chamber  and  nozzle 
geometry#  the  chamber  gas  properties#  the  chamber  acoustic 
resonance  mode  and  the  frequency  range  of  interests;  and  the 
fourth  group  is  the  data  specifying  cavity  geometries  and 
cavity  gas  properties.  A sample  input  file  is  provided  in 
Appendix  B.l. 

The  problem  description  can  be  specified  using  any  number 
lines  but  at  least  one  line  must  be  used  although  it  can  be 
a blank  line.  Following  the  problem  description  is  the 
namelist  CNTRL  and  subsequently  the  namelist  INPUT.  Variables 
in  the  namelists  CNTRL  and  INPUT  are  described  in  tables  3.1 
and  3.2#  respectively.  The  last  group  of  input  data  pertaining 
to  cavity  geometries  and  cavity  gas  properties  immediately 
follows  the  namelist  INPUT.  This  last  group  of  data  is 
described  line-by-line  here: 

CARD  1:  Variables  NCAV1#  NCAV2  # NSEC1,  NSEC2  # NTESTM 

Format  (5110) 

Variable  Unit  Description 

name 

NCAV1  Number  of  group  1 cavities 

NCAV2  Number  of  group  2 cavities 
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Name  I Type  | Unit|  Description  and  Remarks 


AXISYM 


L 


PLOT  | L 

I 

I 

TABLE  I L 


■TRUE  for  cylindrical  chambers 

■FALSE  for  rectangular  chambers 

■TRUE  if  plot  files  are  to  be  generated 

■FALSE  if  plot  files  are  NOT  to  be  generated 

■TRUE  if  nozzle  admittance  is  obtained 
from  a file  that  has  been  generated  by  a 
previous  run. 

■FALSE  if  nozzle  admittance  is  to  be 
calculated  internally. 


Table  3.1:  Descriptions  of  namelist  CNTRL  variables 
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| Name  |Type|  Unit|  Description  and  Remarks  (*) 


1 

GAMMA  | 

R 

1 

| None 
1 

Specific  heat  ratio 

HST  | 

R 

1 ft 

I 

Throat  radius  (throat  half-height) 

RC  | 

R 

1 ft 
1 

Radius  of  curvature  at  the  throat 

XSSL  | 

R 

1 ft 

i 

Chamber  straight-section  length 

XB  | 

R 

1 ft 

1 

1 

Distance  from  injector  face  to  combustion 
plane 

RCHAMB| 

R 

1 ft 

I 

Chamber  radius  (chamber  half-height) 

RWI  | 

R 

1 ft 
1 
I 

Not  used  for  axisymmetric  case.  (Chamber 
half -thickness) 

RE  | 

R 

1 ft 
1 

Radius  of  curvature  at  nozzle  entrance. 

ALPHA  | 

R 

1 

1 deg. 
j 

Nozzle  convergence  half-angle 

AO  | 

R 

1 ft/s 

Speed  of  sound  at  stagnation  condition 

PCHAMB  | 

R 

1 psf 
1 

Chamber  pressure 

WS  | 

R 

| Hertz 
j 

Initial  frequency 

DW  | 

R 

| Hertz 
1 

Frequency  increment 

NW  | 

I 

I 

| None 
i 

Number  of  frequency  values 

M | 

I 

1 

| None 
1 

Tangential  (tranverse  or  width)  mode  number 

N | 

I 

| None 

Radial  (lateral  or  thickness)  mode  number 

Table  3.2:  Description  of  namelist  INPUT  variables 

(*)  Descriptions  enclosed  in  parenthese 
are  for  rectangular  chamber  cases. 
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NSEC1 


Number  of  sections  of  group  1 cavities 
Number  of  sections  of  group  2 cavities 


NSEC2 

NTESTM  Maximum  number  of  iterations  when 

calculating  cavity  admittance. 


| ***  The  following  input  are  not  required  ***  | 
| ***  if  NCAV1-0  and  NCAV2-0  in  card  1 ***  | 

S'-  i 


CARD  2:  Variables  WD,  AC,  LC,  L0GIC1,  IXJGIC2,  I/X3IC3,  L0GIC4 

Format  (3E10.3,  4110) 


Variable  Unit  Description 

name 


WD  ft.  Width  of  cavity  section 

AC  ft* *2  Cross-sectional  area  of  cavity  section 


LC  ft. 

LOGIC1  


L0GIC2 


LOGIC3 


L0GIC4 


Length  of  cavity  section 

Cavity  inlet  chracteristic 
■=0,  square  edged  inlet 
«=1,  rounded  inlet 
=2,  well-rounded  inlet 

Switch  to  specify  whether  or  not  to 
consider  sound  absorption  coefficient. 
*=0 , not  considered 
«=1,  considered 

Switch  to  specify  data  to  be  used 
=0,  use  cavity  inlet  data 
*=1,  use  data  inside  cavity 

Switch  to  specify  cavity  type 

*=0,  circular  cross-sectional  cavity 

■=1,  rectangular  cross-sectional  cavity 


CARD  3:  Variables  RHOC,  CC,  GAMMAC,  PO,  PRTL,  VIS 
Format  (6E10.3) 

Variable  Unit  Description 

name 

RHOC  lb/ft3  Cavity  gas  density 
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cc 

ft/s 

Sound  speed  in  cavity 

GAMMAC 

— 

Specific  heat  ratio  of  cavity  gas 

PO 

Cavity  inlet  pressure  amplitude 
normalized  by  mean  chamber  pressure 

PRTL 

— 

Prandtl  number  of  cavity  gas 

VIS 

lbf-s/ ft2 

Viscosity  of  cavity  gas 

Cards  2 and  3 are  repeated  for  NSEC1  sections  of  group  l 
cavities,  then  they  are  repeated  for  NSEC2  sections  of  group  2 
cavities.  If  NCAV1=0  in  Card  1,  then  Cards  2 and  3 begin  with 
the  first  section  of  group  2 cavities.  Likewise,  if  NCAV2=0 
Cards  2 and  3 end  with  last  section  of  group  1 cavities. 

For  each  group  of  cavity,  the  input  for  the  sections  must 
be  in  sequential  order  beginning  with  the  section  at  the  end  of 
the  cavity  and  ending  with  the  section  at  the  cavity  entrance. 

It  should  be  noted  here  that  for  rectangular  chamber 
cases,  the  cavities  are  assumed  to  be  located  at  the  edge  of 
the  chamber  width.  Although  the  effects  of  the  cavities 
themselves  are  considered,  the  effects  of  the  cavity 
distribution  with  respect  to  the  lateral  (thickness)  modes  are 
not  considered.  Minor  modifications  can  be  made  to  the  code  to 
account  for  the  cavity  distribution  effects. 


* * * 


The  following  input  are  not  required  ***  | 
***  if  AXISYM=F  in  namelist  CNTRL  ***  I 
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CARD  4:  Variables  MO 
Format  (110) 


Variable  Unit  Descriptions 

name 

HO  Mode  orientation  number 

«1,  mode  orientation  in  which 
group  2 cavities  are  more  effective 
than  they  are  in  other  mode  orientations 
«2,  mode  orientation  in  which 
group  1 cavities  are  more  effective 
than  they  are  in  other  mode  orientations 


CARD  5:  Variables  (IDCAV(I) ,I«1,NCAV1+NCAV2) 

Format  (2014) 

Variable  Unit  Descriptions 

name 

IDCAV  Cavity  group  number  distribution. 

For  example,  there  are  6 group-1 
cavities  and  3 group-2  cavities  and 
the  distribution  such  that  there  is 
one  group- 2 cavity  followed  by  two 
group-1  cavities.  Card  5 should  be 
input  as  follow: 

211211211 


3.3  Ouput  Description 

Output  from  the  code  begin  with  the  echo  of  input  data 
which  includes  a problem  description,  variables  in  namelists 
CNTRL  and  INPUT,  and  cavity  input  data.  Although  the  problem 
description  can  be  input  using  any  number  of  lines,  only  the 
first  line  is  output.  Following  the  echo  of  the  input  data  is 
the  chamber  Mach  number.  The  last  section  of  the  output  is  the 
calculated  stability  results  which  include  the  amplitude  and 
phase  of  the  burning  admittance,  n and  *,  the  real  parts  and 
the  imaginary  parts  of  the  chamber  admittances  upstream  and 
downstream  of  the  combustion  plane,  the  real  part  and  the 
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imaginary  part  of  the  burning  admittance.  These  results  are 
calculated  and  output  for  each  frequency  in  the  range  specified 
in  namelist  INPUT.  A sample  output  file  is  provided  in 
Appendix  B.2. 

In  addition  to  the  output  described  above,  a file 
NOADTA.DAT  is  also  output  by  the  code  if  the  variable  TABLE  in 
the  namelist  CNTRL  is  equal  to  FALSE.  This  file  contains  a 
table  of  the  calculated  nozzle  admittance  vs.  frequency.  For 
future  runs  with  the  same  nozzle  geometry  and  resonance  modes, 
the  code  obtaines  the  values  of  nozzle  admittances  from  the 
table  instead  of  re-calculating  them.  This  option  saves 

computer  time  and  can  be  selected  by  setting  the  variable  TABLE 
in  the  namelist  CNTRL  to  TRUE. 

If  the  variable  PI0T  in  the  namelist  CNTRL  is  equal  to 
TRUE,  three  additional  files  are  generated  by  the  code.  These 
files  can  be  input  to  any  x-y  plotting  package,  for  example 
TELLEGRAF,  to  plot  the  calculated  results.  The  first  file, 
AMPLD.PLT  contains  the  amplitude  of  the  burning  admittance  vs. 
frequency.  The  second  file,  PHASE. PLT  contains  the  phase  angle 
of  the  burning  admittance  vs.  frequency.  The  third  file, 

NTAU.PLT  contains  the  pressure  interaction  index,  n vs.  the 
sensitive  time  lag,  't . 
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IV.  RESULTS  AND  DISCUSSION. 


Calculations  of  the  burning  admittances  and  n-V  neutral 
stability  curves  for  a cylindrical  chamber  and  a rectangular 
chamber  were  made  using  the  computer  code  HIFI.  Input 
parameters  for  the  two  cases  are  shown  in  figures  4.1  and  4.2, 
respectively.  Results  are  compared  with  the  IFAR  predictions. 

A typical  run  for  100  frequency  values,  in  which  the 
nozzle  admittance  are  calculated  internally,  requires 
approximately  40  CPU  seconds  on  the  micro-VAX  at  Aerojet 
TechSystems . A similar  run,  in  which  nozzle  admittance  is 
provided  as  a table,  requires  approximately  4 CPU  seconds. 


Figures  4.3  shows  the  n- X neutral  stability  curves. 
Figures  4.4  and  4.5  show  the  burning-admittance  amplitudes  and 
the  burning  admittance  phase  angles  versus  frequency.  Figure 
4.6  is  a replot  of  the  burning  admittance  amplitude  shown  in 
Figure  4.4  but  is  shown  on  a larger  scale  to  show  the  results 
near  resonance  frequencies.  These  results  are  calculated  using 
the  computer  codes  HIFI  and  IFAR  for  mixed  IT  and  longitudinal 
modes  of  a cylindrical  chamber  without  acoustic  cavities.  The 
figures  show  that  the  differences  between  HIFI  and  IFAR 
predictions  are  small  near  resonance.  The  differences  become 
larger  at  off-resonance  frequencies  but  this  is  not  important 


since  we  are  more 


interested  in  the  region  near  resonance. 


Calculations  are  then  made  for  the  IT  mode  of  a 
cylindrical  chamber  with  and  without  acoustic  cavities  using 
computer  codes  HIFI  and  IFAR  . The  calculations  were  made  to 
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(a) 


HIFI,  AX,  IT 
$CNTRL 

AXISYM=T , TABLE-F,  PLOT-  T, 
$END 
$ INPUT 


RC-0.216,  RE-0.216,  ALPHA-45.0,  HST-0.208 
GAMMA— 1 . 14 , AO— 3850.0,  WS-1600.0,  DW-5.0, 
XSSL-1.0,  XB-0.21,  PCHAMB— 2 . 088E+05, 

$END 


, RCHAMB-0 . 623 , RWI-0 
NW-100,  M-l,  N-0, 


2, 


0 


0 1 


1 100 


(b) 


HIFI,  AX,  IT 
$CNTRL 

AXISYM-T,  TABLE-T,  PLOT-  T. 

$END  ' 

$INPUT 

St32*216'  RE“0*216/  ALPHA-45.0,  HST-0.208 
SJS?*"1*14'  AO— 3850. 0,  WS-1600.0,  DW-5.0, 
XSSL-1.0,  XB-0.21,  PCHAMB— 2 . 088E+05, 

$END 


, RCHAMB-0. 623,  RWI-0 
NW-100,  M-l,  N-0, 


0 l .1  100 

1. 500E-01  0. 750E-02  0.320E+00  2 1 o 

0. 514E-00  2 . 750E+03  1.250E+00  0.100E+00  0.472E+00  4.580E-05 

2 

iiiiiiiiii 


2, 


1 


Figure  4.1:  Input  data  for  a IT  node  in  a cylindrical  chamber, 
(a)  without  cavities,  (b)  with  cavities. 
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(a) 


HIFI,  2D,  1W 
$CNTRL 

AXISYM=F,  TABLE=F , PLOT=  T, 

$END 
$ INPUT 

RC-0.216,  RE— 0. 216,  ALPHA-45.0,  HST=0.208 
GAMMA— 1 . 14  , AO-3850 . 0 , WS=1300.0,  DW-5.0, 
XSSL-1.0,  XB-0 .21,  PCHAMB=2 . 088E+05 , 

$END 

0 0 1 1 


, RCHAMB-0.623,  RWI=0.2 
NW-100 , M=1 , N=0 , 


100 


f 


(b) 


HIFI,  2D,  1W 
$CNTRL 

AXISYM-F,  TABLE-T,  PLOT-  T, 

$END 

^RC-0.216,  RE-0. 216,  ALPHA-45.0,  HST-0.208,  RCHAMB-0.623,  RWI-0.2, 
GAMMA-1.14,  AO-3850.0,  WS-1300.0,  DW-5.0,  NW-100,  M-l,  N-0, 
XSSL-1.0,  XB— 0 .21,  PCHAMB— 2 . 088E+05 , 

SEND 

2 0 1 1 100 

1. 500E-01  0.750E-02  0.420E+00  2 1 ® 

0.514E-00  2.750E+03  1.250E+00  0.100E+00  0.472E+00  4.580E-05 


Figure  4.2:  Input  data  for  a 1W  mode  in  a rectangular  chamber 
(a)  without  cavities,  (b)  with  cavities. 
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Figure  4.6  : Comparisons  between  HIFI  and  IFAR  predictions  of 
burning  admittance  amplitude  in  a IT  mode. 


study  the  effects  of  acoustic  cavities  on  combustion  stability, 
and  to  provide  further  comparisons  between  HIFI  and  IFAR 
predictions.  Figures  4.7,  4.8  and  4.9  show  the  calculated 
results.  Again,  the  differences  between  HIFI  and  IFAR 
predictions  are  small.  Both  computer  codes  predict  the 
stabilizing  effects  of  the  acoustic  cavities  as  shown  by  the 
higher  value  of  the  n minimum,  the  minimum  interaction  index 
that  can  support  linearly  instability.  Another  effect  of 
acoustic  cavities  predicted  by  the  computer  codes  is  to  shift 
the  value  of  X where  the  n minimum  occurs  to  a higher  value 

(^9*  4*7)  and  to  shift  the  resonance  frequency  to  a lower 

value  (Fig.  4.8). 

Figures  4.10,  4.11  and  4.12  show  the  comparisons  between 
HIFI  and  IFAR  calculated  results  for  a 1W  mode  of  a rectangular 
chamber.  Similar  to  the  cylindrical  case,  the  differences 
between  the  predictions  are  small. 

Figures  4 . 13 , 4.14  and  4.15  show  the  effects  of  acoustic 
cavities  on  the  stability  results  for  the  1W  mode  of  a 
rectangular  chamber.  The  effects  are  similar  to  those 
discussed  above  for  the  IT  mode  of  the  cylindrical  chamber. 
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Figure  4.9  : Effects  of  acoustic  cavities  on  burning  admittance 
phase  angle  in  a IT  mode.  Comparisons  between  HIFI 
and  I FAR  predictions. 


Figure  4.12:  Comparisons  between  HIFI  and  I FAR  predictions  of 
burning  admittance  phase  angle  in  a 1W  mode. 
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1.  Introduction 

The  overall  goal  toward  which  the  analytical  models  and  computer 
programs  presented  here  are  directed  is  the  development  of  predictive  tools 
for  determining  the  stability  behavior  of  two  and  three  dimensional  liquid 
propellant  rocket  thrust  chambers.  Two  basic  combustion  distribution  models 
are  discussed.  The  first  of  these  assumes  that  a concentrated  zone  of 
combustion  exists  at  the  injector  faoe.  This  assumption  implies  that  the 
remainder  of  the  chamber  is  source  free  and  consequently  leads  to  a 
relatively  simple  analysis.  This  approach  was  employed  by  Baer  and  Mitchell 
in  their  origiial  models  and  computer  codes  (Refs.  1 and  2).  One  objective 
of  the  current  effort  was  the  resurrection  of  these  early  programs  in  a form 
that  would  be  immediately  useful  and  convenient.  This  involved  retrieving 
the  codes  from  punched  cards,  rewriting  portions  of  the  code  in  standard 
Fortran  5,  correcting  minor  errors  originally  present,  adding  a nozzle 
admittance  oode  (Aerojet  TechSystems  NOZADM),  generalization  of  the 
combustion  response  input  so  that  arbitrary  values  of  the  interaction  index 
(n)  and  time  lag  (tau)  could  be  used  and,  finally,  conversion  of  most  of  the 
essential  input  and  output  data  to  dimensional  form,  consistent  with 
Aerojet's  stability  models.  Minor  improvements  to  the  code  including 
modernization  of  the  input  and  output  modes  and  addition  of  comment 
statements  were  also  made.  The  final  result  of  this  work  was  two  computer 
programs:  C0N2D,  for  two  dimensional  thrust  chambers  and  C0N3D,  for  three 

dimensional  thrust  chambers. 

The  second  combustion  distribution  model  is  considerably  more 
realistic  in  that  the  zone  of  combustion  is  taken  to  be  distributed  over  a 
significant  fraction  of  the  chamber  axial  length.  The  distribution  is 
limited  to  a linear  form  (constant  mean  volumetric  rate  of  mass  and  energy 
release  over  the  length  of  the  zone),  but  the  beginning  and  end  of  the  zone 
are  arbitrary.  This  allows  consideration  of  both  relatively  intense 
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(concentrated)  zones  of  combustion  as  well  as  less  Intense  (distributed) 
zones,  and  permits  the  determination  of  the  impact  of  the  concentration  of 
oombustion  sources  on  stability.  Moreover,  the  zone  of  oombustion  may  be 
located  completely  in  the  baffle  cavities,  completely  in  the  unbaffled  main 
chamber,  or  partly  in  both  regions.  Thus,  the  Influence  of  combustion  zone 
looation  on  stability  can  be  assessed  as  well. 

The  analysis  of  the  distributed  combustion  problem  is  both  more 
sophisticated  and  more  complex  than  that  of  the  concentrated  combustion 
model.  The  analytical  approach  employed  follows  in  many  respects  recent 
work  on  combustion  distributions  in  unbaffled  combustion  chambers  done  at 
Colorado  State  University  (Ref.  3).  The  resulting  oomputer  codes  are  more 
flexible  than  those  for  the  concentrated  oombustion  mode.  The  main 
additional  features  are: 

1.  Output  in  terms  of  n,  tau  neutral  stability  data  as  well  as  in 

terms  of  frequency  and  decay  rate  for  given  combustion  response 
input. 

2.  Inclusion  of  a radially  oriented  acoustic  oavity  in  the 
stability  model. 

3.  Output  of  local  pressure  amplitudes  and  phase  angles  at  any 
spatial  location  in  the  chamber  or  baffle  oavltles. 

For  distributed  combustion  the  two  dimensional  computer  progran  is  called 
DIST2D  while  the  three  dimensional  program  is  DIST3D. 

The  remainder  of  this  manual  is  devoted  to  a presentation  of  the 
analytical  approaches  involved  and  a description  of  the  use  of  the  resulting 
computer  programs. 

2 . Theory 

2.1  Analytical  Approach 

In  maijy  respects  the  general  analytical  approaches  for 
treating  the  concentrated  combustion  model  and  the  distributed  combustion 
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model  are  quite  similar.  Consequently,  a single  description  of  the 
analytical  development  will  be  given.  Specific  differences  between  the 
analyses  for  the  two  oombustion  zone  types  (as  well  as  for  the  differences 
between  two  and  three  dimensional  chambers)  will  be  noted  as  the 

presentation  proceeds. 

2.1.1  Model  Assumptions 

The  following  modeling  assumptions  are  made  in  representing 
the  major  thrust  chamber  components  in  the  analyses. 


1.  Chamber  Geometry 

Tferee  dimensional.  A right  circular  cylinder  is 
terminated  by  an  axis-symmetric  nozzle  (see  Fig.  1).  Cylindrical 
coordinates  (r,©.  z)  are  used  in  the  analysis.  The  nozzle  entrance  is  at 
the  injector  is  at  Z*=0,  the  cylindrical  wall  at  r*-R*  (asterisks 

indicate  dimensioml  quanities).  The  radial  absorber  is  located  at  r*=R*. 

. A 3t uherc  1 is  fin 

0<Z*4Z*  • Baffle  blades  are  located  at  ©J  s * 

integer.  N is  the  total  number  of  baffle  cavities,  and  0<j<N-l.  Baffle 

blade  length  is  Z*fi  thickness  is  T». 

Two  dimensional.  A two  dimensional  (vertical  pancake) 

chamber  is  terminated  by  a convergent  two  dimensional  nozzle  (see  Fig.  D . 
Cartesian  coordimtes  (Z*.  y*)  are  used  in  the  analysis.  Chamber  length  is 
L*.  chamber  height  is  R*.  The  absorber  is  located  at  y*  = 0 and  y*  - R*. 
with  0<Z*<Z*A.  Baffle  blades  are  located  at  where  again,  N is 

the  total  number  of  baffle  cavities  and  0<J<N-1.  Baffle  blade  length  is 


2 . Gasdv ramie  plowfield 

. uniform  composition  calorically  perfect  combustion 
product  gas 

. irrotational  flow  outside  of  baffle  boundary  layers 
(exact  for  concentrated  combustion,  correct  through 
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order  mean  Mach  number  squared  in  distributed 
combustion) . 

. one  dimensional  axial  flow  in  the  steady  state. 

. linear,  nearly  harmonic  oscillations  with  small  growth 
or  decay  rates  (less  than  about  30%  per  cycle). 

. droplet  volume  and  drag  Ignored  (distributed 
combustion) . 

. standing  or  traveling  waves  in  the  main  chamber 
standing  waves  in  the  baffle  oompartments  (standing 
waves  only  for  two  dimensional  chamber). 

3.  Combustion  Distribution 
Concentrated  oombustlon 

. all  oombustlon  concentrated  at  Z**0 

. mass  flow  rate,  m*,  Mach  number  M,  pressure  p*  constant 
for  Z*>0  in  the  steady  state  (steady  state  indicated  by 
superposed  bars) 

Distributed  combustion 

it  -s  i + *t- 

. linear  combustion  distribution  between  r — 


- O 

=:  >C\+ 
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V'*'  is  the  total  mean  mass  flow  in  the  steady  state 

T 

• Z*  and  Z*  are  arbitrary,  but  Z*  -Z*  limited  to 
s e s e 

at  least  20%  of  the  chamber  diameter  (or  height  for 
two  dimensional  chamber) 

4.  Combustion  Response 

Concentrated  combustion 


This  form  is  corrected  from  earlier  forms.  The  term  -1 
on  the  right-hand  side  is  added,  and  oan  be  shown 
formally  to  be  the  correct  limit  of  distributed 

i 

combustion.  m*is  the  unsteady  perturbation  in  mass 
flow,  p*the  unsteady  pressure  perturbation,  «•  is  the 
dimensional  angular  frequency,  t*  is  the  time  lag. 
Distributed  combustion 


Q is  the  volumetric  rate  of  local  gas  production  in  the 
combustion  zone. 

5.  Baffle  Dissipation 

. turbulent  boundary  layer  in  region  near  baffle  blade 
tips 
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. driven  by  invisoid  outer  flow  in  cavity  and  main 
chamber 

. uses  Spalding's  effective  turbulent  viscosity  model 

. numerical  integration  over  boundary  layer  near  blade 
tips 

Aooustio  Cavity 
. radial  slot 
. located  at  injector 

*'  •*  *i 

• P when®  ur  Is  th®  radial  unsteady  velocity, 

9 

P is  the  local  pressure  perturbation,  p*  is  the  cavity 
acquittance  (complex,  must  be  supplied  by  user) 

7.  Joggle 

• » • # #i 

• u s " Pg  P • u,  velocity,  p pressure  at  Z*=L* 

• fig  supplied  by  I0ZUH  program 


2.2  Squat! one 


asswptions  given  above  the  conservation  equations  and 
aquations  of  * ate  oan  be  radioed  to  a nondimensional  set  in  terms  of  a 
velocity  potential.  The  nondimensional  soheme  is  defined  in  the  table 
below  the  particular  nondimensional  variable  is  formed  through  division  by 
the  listed  characteristic  quality. 
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Hondlmensional 


Variable 

Characteristic  Quantltv 

Form 

2rD 

p*(pressure) 

-V*U**lO 

same 

P 

p* (density) 

f* 

same 

P 

a*(sonlc  speed) 

c\»  C L*  ^ 

same 

a 

Z*(artal  coordinate) 

pA/tUuWi-  J 

z 

y* (vertical 

n>  / fee*-  \ 

K J 

coordinate,  2-D) 

— 

y 

r*( radial 

coordinate, 3-D) 

t M w — 

r 

t*(time) 

R*/V 

same 

t 

«** (angular  frequency) 

&t/ ft? 

same 

(i) 

X* (decay  rate) 

«f/  Z* 

same 

X 

q* (velocity  vector) 

same 

* 

^•(velocity  potential) 

K/  ft* 

same 

4> 

In  this  table  it  should  be  pointed  out  that  the  characteristic 
length  for  the  two  dimensional  problem  is  the  total  chamber  height  R*, 
rather  than  the  half  height  which  is  used  in  some  Aerojet  programs.  The 
appropriate  conversion  is  made  in  our  computer  codes  when  NOZADM  is  called. 

The  dependent  variables  are  all  represented  as  the  sum  of  a steady 
state  (or  time  averaged)  part  (superposed  bar)  and  an  oscillatory  part 
(prime).  Thus,  p = p + p' , etc.  The  oscillatory  parts  are  in  turn 
represented  as  the  product  of  a space  dependent  part  and  the  factor  eiwt. 

Thus,  p - pe  , etc.,  where  p = P(y*,z)  or  p - P(z.y).  u is  the  complex 
frequency  (<o  « wR  + iX) . 

Since  the  flow  is  irrotational  (at  least  through  order  u2)  then 
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I 


^ =v<$> 

and,  from  partial  integration  of  the  momentum  equation 

{f  ioS>$  f 4*0 


where  y is  the  ratio  of  specific  heats.  Seme  manipulation  finally  results 
in  the  following  basic  equation  for  4> 

v*4  + = fi  (<P}  s «*>,  CD 


where  for  concentrated  combustion. 


-h 


while  for  distributed  combustion 


= (l i-f ) 


ico  + 
_ di  T 


\ )lJ<P 


4-  uvj^  - ti  (/-  e 


) 


dt  A.'t  I 2>£- 
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The  boundary  conditions  on  Equation  (1)  are  given  by  the  general  formV^n  *= 
0p,  where  n is  the  unit  outward  normal  on  a given  surface,  and  ^ the  surface 
admittance  is  defined  for  the  chamber  bounding  surfaces  below. 

Nozzle  entrance  plane  (Z  **  L)  P “ Pjj  (Nozzle  admittance) 

Radial  cavity  entrance  (r  - 1)  P “ Pc  (Cavity  Admittance) 

(or  y - 1,  y “ 0) 

Baffle  blade  surfaces  P “ Pg  (Baffle  admittance  due  to 

dissipation  of  energy  in  the 
boundary  layer) 

Injector  surface  (Z  ■ 0)  P * 0 (Distributed  combustion) 

(Concentrated  Combustion) 


All  other  surfaces 


P - 0 


2.3  Solution  Technique 

An  Integral  technique  Is  followed  In  order  to  predict  either 
complex  frequency  («R  and  X)  for  a given  n and  x,  or  to  predict  n and  r 
values  required  for  neutral  stability  when  the  frequency  («  ) is  given. 

Consider  Equation  (1)  written  a£a  homogeneous  equation  with  homogeneous 
boundary  conditions 

x i 

V <j>  + o = o 


all  surfaces,  including 
baffle  blade  surfaces 


is  the  solution  to  this  homogeneous  problem,  and  » is  the  associated 
frquency.  then,  using  Greens  Theorem  it  oan  be  shown  that 


(bx-£>v)  \ - 


ds 


v 


S 


+ 


<io,  * r)  AV 


v 


(2) 


Equation  (2)  is  exact  and  would  determine  either  » or  n and  x 
exactly,  if  «,  and  the  functional  form  of  <^were  known.  It  is  possible 
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to  determine  and  **  to  arbitrary  accuracy  using  an  eigenfunction  matching 
technique  which  will  be  described  shortly.  In  determining  an  appropropriate 
form  for  reliance  is  placed  on  two  characteristics  of  the  problem  as 
posed.  First,  the  function  Fx  on  the  right-band  side  of  Equation  (1),  as 
well  as  the  values  of  p on  the  active  surfaces  are  small,  usually  less  than 
the  mean  flow  Mach  number  in  size.  Second,  the  form  of  $ is  generated 
through  integration  of  the  p dependent  terms  over  the  chamber  bounding 
surfaces.  Taken  together  these  encourage  using as  the  approximate  form 
for  4 ln  016  integrals  appearing  in  Equation  (2).  Certainly  an  error  no_ 
larger  than  the  mean  Mach  number  squared  will  occur  upon  this  substitution. 

In  practice,  experience  indicates  that  the  error  is  usually  considerably 
less.  This  is  so,  for  example,  for  the  concentrated  combustion  problem 
without  an  acoustic  absorber,  or  boundary  layer  dissipation,  for  which  an 

A/ 

exact  solution  to  Equation  (1)  exists.  Whether  this  exact  solution  or  4 is 

used  in  the  integrals,  affects  predictions  of  n and  v only  to  an  amount 

which  is  always  considerably  smaller  than  the  Mach  number  squared  in  our 

^ . 

calculations.  If  one  acoepts  the  substitution  of  4 4 iD  the  volUBe 

integrals  and  of  Pp(^)  for7f  »n  in  the  surface  integrals,  then  performing 
the  indicated  integrations  leads  to  an  algebraic  relationship  between  n,  t, 
and  u.  This  relationship  is  oomplex  and  oan  be  solved  for  n and  t given  t> 
or  for  <i>  given  n and  x. 

Solution  for  4 

The  function  4 is  represented  formally  by  eigenfunction  expansions 
in  each  baffle  cavity  and  in  the  main  chamber.  The  form  of  these  expansions 

is  given  below. 

Tuo  dimensional  thrust  chamber 


Main  chamber: 


yAzo 


coil 
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baffle  compartment  p: 


$ ^ (U+-*nA/<j  CcsM 

'»';o  d<?S^(’>lnV-.601)//*- 2rg 


where  n and  m are  Integers,  N Is  the  number  of  baffle  compartments  and  n&> 
and  me  determine  the  number  of  terms  in  the  eigenfunction  representation. 
The  coefficient  vectors  Bm  and  aJJ  (one  A^vector  for  each  baffle 
oompartment,  not  generally  the  same)  as  well  as  the  frequency  eigenvalue,  ft 
are  determined  ty  requiring  that,  at  the  Interface  between  the  main  chamber 


and  each  baffle  compartment.  and  r . In  addltlon 

the  dominant  mode  of  oscillation  in  the  main  chamber  is^designatd  by  setting 
- 1,  where  m is  arbitrary.  Thus,  the  choice  A = 1,  a first  transverse 
type  oscillation,  would  cause  « 1.  The  other  Bm  would  then  represent 
corrections  to  the  pure  first  transverse  mode  due  to  the  presence  of  the 


baffle  cavities.  The  coefficients  are  calculated  using  a successive 
approximation  technique.  It  is  first  assumed  that  Bfl  - 1,  and  * - fin,  while 
all  other  Bffl  = 0.  The  matching  condition  J^tben  determines  the  A*1 
values  for  each  baffle  cavity.  Using  these  values  of  AM,  values  for  B 

D ffi 

(except  BA,  of  course)  are  determined  using  the  condition 
at  the  matching  plane.  Finally  the  condition  B*  = 1 is  used  to  dete^ne  an 
improved  approximation  for  ft.  The  details  of  this  type  of  matching  solution 
are  quite  messy j an  in-depth  presentation  is  given  in  Reference  1.  In 
general  the  convergence  is  rapid  (less  than  5 iterations).  The  number  of 
iterations  desired  is  specified  ty  the  program  user,  as  are  the  values  for 
me  and  nB.  Experience  indicates  that  a choice  of M « 30  and  nB  « 30  give 
excellent  matching  and  wave  shape  information. 


Three  Dimensional  Thrust  rframh»n 
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Main  chamber: 


nuu  UUOUUCI  • ^ \ 

% - ^ % &k.  **"*  C L 


*V'0  -t-i 


CovA(aL  -£*) 


Ty^  »5  be*$el  Puk tfroH  ev^i-  M 

i‘S  Sc/m-^OH  ^ (^t^)  ^ 


(Note:  for  a traveling  wave  in  the  main  chamber  cos  m ©is  replaced  by  e 


im© 


Baffle  compartment  |i: 


x fa- 

Co$  Jjw*A/  (&v  - ^ *3  2* 

~uj  ) 


2. 

i5  S^^sc)  pu>  eh'* 

eYeltr 

2. 

'V*' 

is  ~{&t  Sol*  Li  oh  fc 

(*  ) . 0 

^ A y *Yz\ 

The  same  matching  requirements  and  successive  approximation 
technique  is  used  for  the  three  dimensional  thrust  chamber  as  was  used  for 
the  two  dimensional  chamber.  In  the  three  dimensional  case  and 

are  matrices  rather  than  vectors.  In  order  to  specify  the  main  oscillation 
mode  in  the  chamber  both  m and  i must  be  chosen.  For  example  m ■ 1 ^ jL  =3 
leads  to  a 1st  tangential  type  oscillation  with  ■ 1.8412J  m = 2,  £ 
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■1a  second  tangential  mode,  etc.  Choices  for  me,  $ c,  J^'B,  m'B  must  be 
made  as  well.  In  the  3-D  case  computation  time  is  a factor,  and  a 
compromise  between  accuracy  and  run  time  must  be  made.  Choices  of  me  « m’B 
“ 11,  ^.c  - £'B  = 4 appear  to  give  good  results.  The  details  and  integrals 
involved  in  the  3-D  matching  problem  are  formidable*  one  is  again  referred 
to  Reference  1. 

A limit  on  the  number  of  iterations  must  be  specified  by  the  user. 
Convergence  is  a little  slower  in  the  three  dimensional  model:  approximately 
10  iterations  gives  reliable  convergence  in  most  cases. 

Asymptotic  solution  for  $ 

Near  the  baffle  blade  tips  it  is  desirable  to  have  great  accuracy  in 
defining  the  local  behavior  of$.  This  is  so  because  the  outer  inviscid 
solution  will  drive  the  boundary  layer  dissipation  Integral.  An  asymptotic 
solution  which  is  valid  near  the  blade  tips  was  derived  and  explained  in 
Reference  1.  This  is  used  without  modification  in  the  present  work. 

Matching  between  the  eigenfunction  representations  and  the  asymptotic 
solution  is  quite  good  over  the  region  near  the  blade  tips,  if  a matching  at 
two  points  to  determine  constants  in  the  asymptotic  solution  is  made  at  a 
distance  approximately  equal  to  the  baffle  blade  thickness  T,  on  either  side 
of  the  baffle  blade. 

Boundary  layer  dissipation  Integral 

The  portion  of  the  boundary  integral  • \ ^ ^ S ^ 

Equation  (2)  which  lies  on  the  baffle  blade  surfaces  can  be  shown  to  be 
T 

equivalent  to  E^ss  the  turbulent  boundary  layer  dissipation  integral. 

T 

Edla_  In  turn  is  equal  to 
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where 


C _ = .05  3-Dimensional 
turb 


C . - .034  2-Dimensional 
turb 

lu’l  is  the  modulus  of  the  oscillatory  velocity  at  the  outer  edge  of  the 
boundary  layer  as  determined  by  the  5 solution. 

Application  of  Equation  (2)  and  Final  Solution 

The  representation  for  both  main  chamber  and  baffle  oavities  is 
now  substituted  for  $ in  tbe  volume  integrals  of  Equation  (2).  It  is  to  be 
recognized  that  these  integrals  extend  over  both  the  main  chamber  and  baffle 
cavities.  As  can  be  imagined  these  integrals  are  somewhat  involved. 

Solution  is  pursued  analytically  where  possible,  numerically  where 
necessary.  The  surface  integrals  except  for  the  baffle  blade  surfaces  are 
evaluated  ty  replacing^  with  p?  and  integrating  over  the  appropriate 
surface  (nozzle  entrance  plane,  injector,  acoustic  cavity  interface).  As 
discussed  above  the  surface  integral  for  the  baffle  blades  is  replaced  by 
the  turbulent  boundary  layer  integral  E^gg.  This  integral  is  performed 
numerically  (one  dimension  for  two  dimensional  thrust  chamber,  two 
dimensions  fcr  three  dimensional  thrust  chamber),  over  a streamline  defining 
the  edge  of  the  boundary  layer.  Once  the  integrations  are  complete  the 
resulting  algebraic  expression  is  solved  for  either  u>p  and  X (option  1)  or  n 
and  x (option  2) . 
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3. 


- COMPUTER  PROGRAMS 


3.1  - TWO-DIMENSIONAL  PROGRAMS 

This  section  will  describe  the  two-dimensional  distributed  and  concen- 
trated combustion  programs.  A general  overview  of  the  distributed  combustion 
program  (DIST2D)  will  cover  the  program  structure,  input,  output,  and  results. 
Distributed  combustion  sample  runs  and  listing  are  located  in  the  appendix.  A 
brief  discussion  of  the  two-dimensional  concentrated  combustion  program 
(C0N2D)  will  be  presented  last.  This  discussion  will  cover  the  program  input 
and  output.  The  appendix  includes  a sample  run  from  (C0N2D)  and  listing. 

3.1.1  - DISTRIBUTED  COMBUSTION  PROGRAM  DESCRIPTION 

The  computer  program  DIST2D  consists  of  a main  program  and  fourteen  sub- 
programs which  are  listed  in  Table  1.  The  program  has  two  main  running 
options;  Option  one  requires  the  user  to  input  an  interaction  index  (n)  and 
combustion  time  lag  (r),  and  the  resulting  complex  frequency  is  calculated. 
Option  two  requires  the  input  of  a frequency  range  and  increment  and  the  pro- 
gram generates  an  n,r  stability  map.  Additional  program  options  are  the  capa- 
bility of  placing  a radial  acoustic  absorber  in  the  chamber  and  of  making 
pressure  amplitude  calculations  at  any  location. 

A description  of  the  program  structure  follows.  (see  Figure  2 for  pro 
gram  flow  chart.)  After  all  input  variables  and  program  options  are  read  in 
the  program  proceeds  with  the  zero  order  (closed  baffled  chamber,  4>)  solution. 
The  iteration  counter  is  initialized  along  with  the  chamber  coefficient  vector 
and  an  initial  approximation  to  the  frequency,  u>  is  made.  The  program  then 
proceeds  into  a loop  that  iterates  on  frequency,  w until  a correct  solution  to 
the  matching  condition  equation  (Eq.  11  Ref.  1)  converges.  The  converged  fre 
quency  and  iteration  counter  are  then  printed  out.  At  this  point  one  full 
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Figure  2:  2-D  & 3-D  program  flowchart 
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* 

Start  first  order  approximation  calculation 

- calculate  dissipation  integral 

- calculate  nozzle  surface  integral 

- calculate  phi*phi  volume  integral 

- calculate  combustion  source  & propagation 
volume  integrals 


COPT  = 1? 


Calculate  cavity  dissipation 
surface  integral 


OPTl=? 


Call  nozzle  admittance  program 
Calculate  complex  frequency 
from  first  order  governing  eqn. 


- Call  nozzle  admittance  program 

- Solve  first  order  equation  for 

combustion  response  (N,  tau) 
for  each  frequency  point 


'Output  frequency  & 
decay  rate  factor 


Output  N and  tau  points 


TABLE  1:  subroutines  and  functions  in  DIST2D 

Function  CCOSH  - Performs  hyperbolic  cosine  with  a complex  argument. 

Subroutine  NTAU1  - Calculates  n,r  from  combustion  response. 

Subroutine  PRES  - Calculates  pressure  at  a specific  location  in  the  chamber. 

Function  BI2  - Evaluates  J z $ dz  in  the  baffle  compartments 

Function  CHI 2 - Evaluates  f z 6 ^ dz  in  the  main  chamber 

Function  BI3  - Evaluates  / ^ ^ dz  in  the  baffle  compartments 

Function  BI1  - Evaluates  J $ <f>  dz  in  the  baffle  compartments 

Function  CHI3  - Evaluates  f <f>  3^  dz  in  the  main  chamber 

J ^ dz 

Function  CHI1  - Evaluates  f $ $ dz  in  the  main  chamber 

Subroutines  NOZINI , NOZADM,  INTGRT,  MACH,  CALADM  are  used  in  the  calculation 

of  the  nozzle  admittance  and  were  obtained  from  Refs.  4 & 5. 

iteration  is  complete  and  a check  on  the  iteration  limit  is  made.  If  the 
iteration  limit  has  not  been  exceeded  the  main  chamber  and  baffle  compartment 
coefficients  are  recalculated  (using  Eqs.  9 & 10  Ref.  1)  with  the  newly  calcu- 
lated frequency  value,  but  if  the  iteration  limit  has  been  exceeded  the  coef- 
ficient  vectors  are  printed  out  and  the  zero  order  calculation  for  ^ and  u>  is 
complete . 

At  this  point  the  program  starts  the  solution  computation  for  Equation 
(2)  given  in  the  Theory  section  above.  Using  the  zero  order  velocity  poten- 
tial solution  all  the  chamber  surface  and  volume  integrals  are  evaluated. 

These  integrals  include  the  combustion  source  and  propagation  volume 
integrals,  the  ^ squared  volume  integral,  the  nozzle  surface  integral,  baffle 
blade  dissipation  integral,  and  cavity  absorber  surface  integral  if  applica- 
ble. Depending  on  the  option  being  run  the  program  either  solves  the  govern- 
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Ing  equation  for  complex  frequency  (Option  1)  or  solves  the  equation  for 
combustion  response  (Option  2).  Finally,  the  pressure  calculation  subroutine 
is  called  if  this  option  is  desired. 

3.1.2  - DISTRIBUTED  COMBUSTION  PROGRAM  INPUT 

All  Input  variables  for  the  main  program  are  read  in  from  file  'DISIN2'. 

A list  of  the  Inputs  is  described  in  Table  2.  In  the  file  the  variables 
appear  in  the  same  order  as  in  Table  2 and  need  only  be  separated  by  commas. 

The  variables  0PT1,  COPT,  POPT  are  the  option  variables.  If  variable 
(0PT1  - 1)  option  one,  which  calculates  complex  frequency  from  input  values  of 
n and  r,  is  executed.  If  the  variable  (0PT1  - 2)  option  two  is  executed  which 
generates  a stability  map.  A radial  cavity  absorber  is  present  if  the  vari- 
able (COPT  - 1).  The  cavity  admittance  must  be  supplied  along  with  the  aper- 
ture width.  The  absorber  is  assumed  to  be  located  at  the  injector  (z  — 0)  and 

extends  downstream  from  there.  If  the  pressure  option  is  to  be  run,  set  vari- 
able (POPT  - 1).  A separate  input  file  called  ' PRESPT2 ' must  be  supplied. 

This  file  described  in  Table  3 contains  the  total  number  of  Z,Y  locations  to 

be  calculated  on  the  first  line  followed  by  each  coordinate  pair  on  successive 
lines . 

TABLE  2:  Input  variables  for  file  ' DISIN2' 

VARIABLE  VARIABLE  DESCRIPTION  DIMENSIONS 

MC  : number  of  series  terms  to  represent  series  solution  in  ( none  ) 

the  main  chamber  (maximum  of  50  terms,  default  value 
of  30  terms) 

MB  : number  of  series  terms  to  represent  series  solution  in  ( none  ) 

the  baffle  compartments  (maximum  of  50  terms,  default 


value  of  30  terms) 

ALENGTH  : chamber  length  < ft  > 

ZB  : baffle  blade  length  < ft  > 

T : baffle  blade  thickness  (ft  ) 

R : chamber  whole  height  ( ft  ) 

MUB  : number  of  evenly  spaced  baffle  compartments 

(maximum  of  5 compartments)  ( none  ) 


HST  : nozzle  throat  radius  ( half  height  ) ( ft  ) 

RC  : radius  of  curvature  at  nozzle  throat  ( ft  ) 

RE  : radius  of  curvature  at  nozzle  entrance  ( ft  ) 

ALPHA  : nozzle  convergence  half  angle  ( deg  ) 

AO  : chamber  speed  of  sound  at  stagnation  conditions  ( ft/s  ) 

PO  : chamber  pressure  at  stagnation  conditions  ( psf  ) 

GAMMA  : ratio  of  specific  heats  ( none  ) 

PAMP  : peak  to  peak  pressure  amplitude  ( percent  of  main  chamber  ) 
MHAT  : dominating  transverse  mode  number  in  main  chamber  ( none  ) 

1DMAX  : maximum  number  of  frequency  iterations  for  successive  ( none  ) 

approximation  (default  value  of  5) 

ZS  : z location  where  combustion  starts  ( ft  ) 

ZE  : z location  where  combustion  is  completed  ( ft  ) 

0PT1  : option  selection  as  described  above  ( 1 OR  2 ) 


IF  (0PT1  - 1)  THEN 

VAL1  : combustion  interaction  index  (n) 
VAL2  : combustion  time  lag  (r) 

VAL3  : not  used  in  this  option 


( none  ) 
( msec  ) 


IF  (0PT1  - 2)  THEN 

VAL1  : starting  frequency 

VAL2  : ending  frequency 

VAL3  : frequency  increment 


(hertz  ) 
(hertz  ) 
(hertz  ) 


COPT 

BETACR 

BETACI 

ZA 

POPT 


cavity  option  ( 0 if  no  cavity,  1 if  cavity  present  ) 
real  part  of  cavity  admittance  (ft/s)/(psf) 

imaginary  part  of  cavity  admittance  (ft/s)/(psf) 

z location  where  cavity  ends  (aperture  width)  ( ft  ) 

pressure  option  ( 1 if  pressure  points  are  to  be  calculated, 

0 if  no  pressure  calculations  are  to  be  made) 


VARIABLE 


TABLE  3:  Input  variables  for  file  'PRESPT2' 

VARIABLE  DESCRIPTION  DIMENSIONS 


N-  : number  of  points  to  be  calculated 

Z,Y  : N number  of  sets  of  z,y  locations  for  pressure 

calculations 


( none  ) 
( ft  ) 


3.1.3  - DISTRIBUTED  COMBUSTION  PROGRAM  OUTPUT 


The  output  file  generated  Is  called  'DIS0UT2'.  This  file  starts  with  the 
chamber  geometry  and  operating  conditions,  this  includes  calculated  values  for 
nozzle  inlet  Mach  number,  steady  state  pressure  and  sound  speed.  For  each  u> 
frequency  iteration  the  Iteration  number  and  frequency  is  printed  out.  After 
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the  Iteration  limit  is  reached  the  final  main  chamber  and  baffle  compartment 
Fourier  coefficient  vectors  are  printed  out.  Next,  a calculation  of  nozzle 
admittance  based  on  w is  printed  out.  At  this  point  if  Option  one  is  selected 
the  chamber  complex  frequency  is  printed  out  + iA) , this  is  also 

represented  by  a decay/growth  rate  factor  which  gives  the  ratio  of  the  ampli- 
tude after  one  period  to  that  of  the  previous  period.  Decay  rate  (A)  is  also 
represented  in  decibels  per  cycle.  If  Option  two  is  selected  the  output  con- 
sist of  a list  containing  frequency,  interaction  index  (n) , and  combustion 
time  lag  (r).  For  Option  two  an  additional  output  file  called  'NTDATA2  is 
generated  which  contains  r,n  values  for  plotting  purposes. 

3.1.4  - DISTRIBUTED  COMBUSTION  PROGRAM  RESULTS  AND  DISCUSSION 

The  following  section  is  intended  to  show  some  of  the  capabilities  and 
predictions  of  the  distributed  combustion  program.  A series  of  n,r  plots  show 
the  effects  of  baffle  blade  length,  combustion  zone  variations,  and  acoustic 
absorbers.  A pressure  profile  is  also  included  which  shows  the  effects  of 
baffle  blade  length. 

Run  time  for  the  two  dimensional  program  does  not  present  a problem.  Run 
time  for  a typical  test  case  in  which  30  term  vectors  were  kept  required 
approximately  75  CPU  seconds  on  the  VAX  11/780  machine  at  Colorado  State 
University. 

The  baffled  chamber  geometry  and  other  input  parameters  used  for  the 
series  of  plots  are  listed  in  Table  4.  The  effect  of  baffle  length  on  pres- 
sure amplitude  is  shown  in  Figure  3.  The  long  baffle  (33.3%  of  chamber 
length)  induced  a large  pressure  amplitude  decrease  from  the  injector  face  (z 
- 0)  to  the  nozzle  (z  - ALENGTH)  while  the  short  (6.67%)  baffle  had  only  a 
minor  effect.  A chamber  with  no  baffle  at  all  would  show  no  amplitude 
decrease.  This  result  is  important  as  an  aid  in  understanding  other  stability 
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predictions  to  be  discussed.  The  effect  of  moving  a concentrated  combustion 
zone  down  the  chamber  is  illustrated  in  Figure  4 for  a baffle  blade  length 
that  is  6.67%  of  the  chamber  length.  The  same  combustion  zone  movement  is 
shown  in  Figure  5 for  a baffle  blade  length  which  is  33.3%  of  the  chamber 
length.  In  both  cases  (ZE  - ZS)  - .048ft,  and  ZS  is  varied  from  0 to  1.632ft. 
For  the  6.67%  baffle  moving  the  combustion  zone  downstream  does  not  have  a 
large  effect  on  stability.  This  result  is  due  to  the  fact  that  the  pressure 
amplitude  does  not  change  significantly  downstream.  The  large  pressure  ampli- 
tude decrease  with  Z for  the  33.3%  baffle  explains  the  large  shifts  in  the  n,r 
curves  as  the  concentrated  combustion  zone  is  moved  toward  the  nozzle.  In 
interpreting  these  results  it  must  be  remembered  that  combustion  Input  is  pro- 
portional to  local  pressure  amplitude,  in  the  n.r  model.  For  all  combustion 
zone  locations  the  large  baffle  causes  a stabilizing  shift  upward  of  the  n,r 
curves  as  well  as  a potentially  destabilizing  flattening  of  the  curves.  Fig- 
ure 6 shows  a set  of  curves  for  a 33.3%  baffle  with  a combustion  zone  starting 
at  the  injector  and  extending  different  distances  downstream  (i.e.  ZS  - 0,  ZE 
.408,  1.02,  2.04  (ft)).  As  can  be  readily  seen  distributing  the  combustion 
has  a stabilizing  effect.  The  final  plot  shows  the  clear  stabilizing  effect 
of  an  acoustic  absorber.  The  absorber  used  had  a slot  width  of  .136ft  and  a 
pure  real  admittance  of  . 04222 (ft/s)/(psf) . 


TABLE  4:  Input  parameters  used  for  2-D  plots 


MC  - 30 

MB  - 30 

ALENGTH  - 2.04  ft 

T - .068  ft 

R (chamber  height)  - 1.36  ft 
MUB  - 2 compartments 

HST  - .25  ft 

RC  - .25  ft 

MACH  - .2232 


RE  - .11  ft 
ALPHA  - 30  deg 
AO  — 3850  ft/sec 
PO  — 43,200  psf 
GAMMA  -1.2 
PAMP  - 20 
MHAT  - 1 
IDMAX  - 4 


3.1.5  - CONCENTRATED  COMBUSTION  PROGRAM  DESCRIPTION 
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The  two-dimensional  concentrated  combustion  program  is  in  essence  the 
same  program  that  appears  in  Reference  1.  The  following  modifications  have 
made.  First,  The  corrected  concentrated  combustion  model  described  in  the 
Theory  section  has  been  implemented.  Secondly,  the  nozzle  admittance  predic- 
tion model  and  program  appearing  in  References  4 & 5 (Aerojet's  NOZADM  pro- 
gram) has  been  added.  Finally,  all  of  the  nondimens ional  inputs 
and  outputs  have  been  dimensionalized.  It  should  be  noted  that  the  two- 
dimensional  concentrated  program  is  only  capable  of  predicting  frequency  and 
decay  rate  from  a given  n,r. 


3.1.6  - CONCENTRATED  COMBUSTION  PROGRAM  INPUT 


All  input  variables  for  the  main  program  are  read  in  from  file  'C0N2IN' 
A list  of  the  required  inputs  is  described  in  Table  5.  The  variables  appear 
in  the  same  order  in  Table  5 as  they  do  in  the  file  and  need  only  to  be 
separated  by  commas . 


VARIABLE 

MC 


MB 


IDMAX 

ALENGTH 

ZB 

T 

DR 

MUB 

HST 

RC 

RE 

ALPHA 


TABLE  5:  Input  variables  for  file  'C0N2IN* 


VARIABLE  DESCRIPTION 


DIMENSIONS 


number  of  series  terms  to  represent  series  solution  in 
the  main  chamber  (maximum  of  50  terms,  default  value 
of  30  terms) 

number  of  series  terms  to  represent  series  solution  in 
the  baffle  compartments  (maximum  of  50  terms,  default 
value  of  30  terms) 

maximum  number  of  frequency  iterations  for  successive 

approximation  (default  value  of  5) 

chamber  length 

baffle  blade  length 

baffle  blade  thickness 

chamber  whole  height 

number  of  evenly  spaced  baffle  compartments 
(maximum  of  5 compartments) 
nozzle  throat  radius  ( half  height  ) 
radius  of  curvature  at  nozzle  throat 
radius  of  curvature  at  nozzle  entrance 
nozzle  convergence  half  angle 


( none  ) 


( none  ) 


( none  ) 

( ft  ) 
( ft  ) 
( ft  ) 
( ft  ) 

( none  ) 
( ft  ) 
( ft  ) 
( ft  ) 
( deg  ) 
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AO 

PO 

GAMMA 

PAMP 

MHAT 

AN 

TAU 


chamber  speed  of  sound  at  stagnation  conditions  ( ft/s  ) 

chamber  pressure  at  stagnation  conditions  ( psf  ) 

ratio  of  specific  heats  ( none  ) 

peak  to  peak  pressure  amplitude  ( percent  of  main  chamber  ) 
dominating  transverse  mode  number  in  main  chamber  ( none  ) 

combustion  interaction  index  (n)  ( none  ) 

combustion  time  lag  (r)  ( msec  ) 


3.1.7  - CONCENTRATED  COMBUSTION  PROGRAM  OUTPUT 


The  output  of  the  concentrated  combustion  program  is  written  into  file 
'C0N20UT'.  The  output  starts  with  a listing  of  the  geometrical  inputs  and 
operating  conditions  such  as  nozzle  inlet  Mach  number,  steady  state  chamber 
pressure  and  sound  speed.  For  each  frequency  iteration  the  program  outputs 
the  complex  frequency  (hertz)  and  iteration  number.  After  the  iteration  limit 
is  reached  the  final  chamber  and  baffle  compartment  vectors  are  printed  out. 
The  final  output  includes  the  decay  rate  with  baffle  dissipation  included, 
this  is  also  presented  as  decay  in  decibels/cycle  and  the  decay/growth  rate 
factor . 
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ALENGTH  = 2.04  ft  Y = 1.36  ft  (top  of  chamber) 


Figure  3:  2-D  pressure  profile 


Figure  4 


NcUIPAL  STABILITY  MAP  FOR  A 2-D  CHAMBER,  CONCENTRATED  OCMEUSTION  ZQ 


Chaniber  dimensions  (ft) : length  = 2.04 

Baffle  dimensions  (ft) : length  = 0.136 

Steady  state  speed  of  sound  = 3850.0  ft/s 
Steady  state  pressure  = 43200.0  psf 

Patio  of  specific  heats  =1.2 

Frequency  range  (Hz) : 1200  to  1700 


whole  height  = 1.36 
thickness  = 0.068 


Mode ; First  transverse 
No.  of  baffles:  l 


ZONES  (distance  in  feet  from  injector  plate) : 
A:  ZS  = 0.0  to  ZE  = 0.408 

B:  ZS  = 0.0  to  ZE  = 0.408 

C:  ZS  = 0.476  to  ZE  = 0.884 

D:  ZS  = 1.632  to  ZE  = 2.04 


(no  baffle  present) 


Figure  5 


NEUTRAL  STABILITY  MRP  FOR  A 2-D  CHAMBER,  OONCENIRATED  COMBUSTION  ZONES 


Chamber  dimensions  (ft) : length  *=  2.04 

Baffle  dimensions  (ft):  length  = 0.68 

Steady  state  speed  of  sound  = 3850.0  ft/s 
Steady  state  pressure  = 43200.0  psf 

Ratio  of  specific  heats  =1.2 

Frequency  range  (Hz) : 700  to  1200 


whole  height  = 1.36 
thickness  = 0.068 


Ftode:  First  transverse 

No.  of  baffles:  1 


ZONES  (distance  in  feet  from  injector  plate) : 
A:  ZS  = 0.0  to  ZE  = 0.408 

B:  ZS  = 0.476  to  ZE  » 0.884 

C:  ZS  = 1.632  to  ZE  = 2.04 


Tau  (msec)  J-86 


Figure  6 


NHJTRAL  STABILITY  MAP  FOR  A 2-D  CHAMBER,  DISTRIBOTED  COMBUSTION  ZONES 


Chamber  dimensions  (ft):  length  = 2.04  whole  height  = 1.36 

Baffle  dimensions  (ft):  length  = 0.68  thickness  = 0.068 

Steady  state  speed  of  sound  = 3850.0  ft/s 
Steady  state  pressure  = 43200.0  psf 

Ratio  of  specific  heats  = 1.2  ■ Mode:  First  transverse 

Frequency  range  (Hz) : 700  to  1200  No.  of  baffles:  1 

ZONES  (distance  in  feet  from  injector  plate) : 

A:  ZS  = 0.0  to  ZE  = 2.04  (no  baffle  present) 

B:  ZS  = 0.0  to  ZE  = 0.408 

C:  ZS  = 0.0  to  ZE  = 1.02 

D:  ZS  = 0.0  to  ZE  = 2.04 


Figure  7 


NEUTRAL  STABILITY  MAP  FOR  A 2-D  CHAMBER,  DISTOIEUTED  OCMEUSTION  ZONES 


N 


Chamber  dimensions  (ft):  length  =2.04  whole  hei^it  l*36 

Baffle  dimensions  (ft) : length  = 0.68  thickness  = 0.068 

Steady  state  speed  of  sound  = 3850.0  ft/s 
Steady  state  pressure  = 43200.0  psf 

Patio  of  specific  heats  =1.2  Mode:  First  transverse 

Frequency  range  (Hz):  700  to  1200  No.  of  baffles:  1 

Cavity  admittance  ( ft/s)/ (psf) : real  = 0.04222  imaginary  - 0.0 

Cavity  aperture  width  = 0.136  ft 


zones  (distance  in  feet  from  injector  plate) : . . 

A:  ZS  = 0.0  to  ZE  = 2.04  - without  cavity  dissipation 

B:  ZS  = 0.0  to  ZE  = 2.04  - with  cavity  dissipation 


I 


0.5  0.6  0.7  0.8  0.9  1.0  1.1  1-2 

Tau  (msec)  j_88 


3.2  - THREE-DIMENSIONAL  PROGRAMS 


This  section  will  describe  the  three-dimensional  distributed  and  concen- 
trated combustion  programs.  The  parallels  between  the  two-dimensional  and 
three-dimensional  programs  are  strong,  this  fact  will  simplify  the  three- 
dimensional  discussion  somewhat.  A overview  of  the  distributed  combustion 
program  (DIST3D)  will  cover  the  program  structure.  Input,  output,  and  results. 
Three-dimensional  distributed  combustion  program  runs  and  list^ig  are  located 
In  the  appendix.  A brief  discussion  of  the  three-dimensional  concentrated 
combustion  program  (C0N3D)  will  be  presented  last.  This  discussion  will  cover 
the  program  input,  output,  and  current  status.  The  appendix  includes  a sample 
run  from  (C0N3D)  and  listing. 

3.2.1  - DISTRIBUTED  COMBUSTION  PROGRAM  DESCRIPTION 

The  computer  program  DIST3D  consists  of  a main  program  and  seventeen  sub- 
programs which  are  listed  in  Table  6.  The  three-dimensional  program  like  the 
two-dimensional  has  two  main  running  options;  Option  one  which  calculates  com- 
plex frequency  from  a given  n,r  point,  and  Option  two  which  produces  a n,r 
stability  map.  Additional  program  options  include  the  capability  of  placing  a 
radial  acoustic  absorber  in  the  chamber  and  of  making  pressure  amplitude  and 
phase  calculations  at  any  location.  The  three-dimensional  program  has  an 
additional  option  that  determines  the  waveform  type  present  in  the  main 

chamber.  This  waveform  can  either  take  the  form  of  a spinning  wave  or  stand- 
ing  wave . 

A description  of  the  program  structure  follows.  (see  Figure  2 for  pro- 
gram flow  chart.)  After  all  input  variables  and  program  options  are  read  in 
the  program  proceeds  with  the  zero  order  (closed  baffled  chamber,  J)  solution. 
The  iteration  counter  is  initialized  along  with  the  chamber  coefficient  matrix 
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Function  CCOSH 


TABLE  6:  subroutines  and  functions  In  DIST3D 
. Perforins  hyperbolic  cosine  with  a complex  argument. 
Subroutine  NTAU1  - Calculates  n,r  from  combustion  response. 

Subroutine  PRES  - Calculates  pressure  at  a specific  location  in  the  chamber. 
Function  BI2  - Evaluates  J*  z 4>  dz  in  the  baffle  compartments 

Function  CHI2  - Evaluates  J z ^ ^ dz  in  the  main  chamber 

Function  BI3  * Evaluates  / ^ ^ dz  in  the  baffle  compartments 

Function  BI1  - Evaluates  J ^ ^ dz  in  the  baffle  compartments 

Function  CHI 3 - Evaluates  J 4>  ^ dz  in  the  main  chamber 

Function  CHI1  - Evaluates  J <f>  4>  dz  in  the  main  chamber 

Function  BESSCAL  - Calculates  the  value  of  the  Bessel  function  of  integer  and 

half  integer  order  and  of  arbitrary  argument 

Subroutine  ROOT  - Calculates  the  root  of  the  derivative  of  Bessel  functions 

Subroutine  VDISP  - Calculated  baffle  blade  tip  dissipation 

Subroutines  NOZINI,  NOZADM,  INTGRT,  MACH,  CALADM  are  used  in  the  calculation 
of  the  nozzle  admittance  and  were  obtained  from  Refs.  2 & 3. 

and  an  initial  approximation  to  the  frequency,  u is  made.  The  program  then 
proceeds  into  a loop  that  iterates  on  frequency,  w until  a correct  solution  to 
the  matching  condition  equation  (Eq.  23  Ref.  1)  converges.  The  converged  fre- 
quency and  iteration  counter  are  then  printed  out.  At  this  point  one  full 
iteration  is  complete  and  a check  on  the  iteration  limit  is  made.  If  the 
iteration  limit  has  not  been  exceeded  the  main  chamber  and  baffle  compartment 
coefficients  are  recalculated  (using  Eqs . 21  & 22  Ref.  1)  with  the  newly  cal- 
culated frequency  value,  but  if  the  iteration  limit  has  been  exceeded  the 
coefficient  matrices  are  printed  out  and  the  zero  order  calculation  for  4>  and 
u>  is  complete. 
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At  this  point  the  program  starts  the  solution  computation  for  Equation 
(2)  given  in  the  Theory  section  above.  Using  the  zero  order  velocity  poten- 
tial solution  all  the  chamber  surface  and  volume  integrals  are  evaluated. 
These  integrals  include  the  combustion  source  and  propagation  volume 
integrals,  the  J squared  volume  integral,  the  nozzle  surface  integral,  baffle 
blade  dissipation  integral,  and  cavity  absorber  surface  integral  if  applica- 
ble. Depending  on  the  option  being  run  the  program  either  solves  the  govern- 
ing equation  for  complex  frequency  (Option  1)  or  solves  the  equation  for 

combustion  response  (Option  2).  Finally,  the  pressure  calculation  subroutine 
is  called  if  this  option  is  desired. 


3.2.2  - DISTRIBUTED  COMBUSTION  PROGRAM  INPUT 


All  input  variables  for  the  main  program  are  read  in  from  file  'DISIN3'. 
A list  of  the  inputs  is  described  in  Table  7.  In  the  file  the  variables 
appear  in  the  same  order  as  in  Table  7 and  need  only  be  separated  by  commas. 

The  variables  0PT1,  COPT,  POPT,  MX  are  the  option  variables.  If  variable 
(0PT1  - 1)  program  Option  one  is  executed,  if  (0PT1  - 2)  program  Option  two  is 
executed.  A radial  cavity  absorber  is  present  if  the  variable  (COPT  - 1). 

The  cavity  admittance  must  be  supplied  along  with  the  aperture  width.  The 
absorber  is  assumed  to  be  located  at  the  injector  (z  - 0)  and  extends  down- 
am  from  there.  If  the  pressure  option  is  to  be  run,  set  variable  (POPT  - 
1).  A separate  input  file  called  ' PRESPT3 ' must  be  supplied.  This  file 
described  in  Table  8 contains  the  total  number  of  R, THETA, Z locations  to  be 
calculated  on  the  first  line  followed  by  each  coordinate  pair  on  successive 
lines.  The  variable  MX  determines  the  waveform  type  in  the  main  chamber,  (MX 
- 0)  for  standing  waves  and  (MX  - 1)  for  spinning  waves. 
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VARIABLE 

MX 

MC 

LC 

MB 


LC 


IDMAX 

ALENGTH 

ZB 

T 

RCHAMB 

MUB 

HST 

RC 

RE 

ALPHA 

AO 

PO 

GAMMA 

PAMP 

MHAT 

LHAT 

ZS 

ZE 

OPT1 


TAB1 F 7:  Input  variables  for  file * DISIN3_ 

VARIABLE  DESCRIPTION 

variable  that  determines  what  type  of  main  chamber 
solution  is  present.  (MX  - 0 for  standing  waves, 

MX  - 1 for  spinning  waves) 

number  of  Fourier  series  terms  to  represent  the 
main  chamber  solution  (maximum  of  20  terms,  default 

value  of  11  terms)  . , 

number  of  Bessel  series  terms  to  represent  solution  i 
the  main  chamber  (maximum  of  20  terms,  default  va  ue 

of  8 terms)  . , _ e 

number  of  Fourier  series  terms  to  represent  the  baffle 
compartment  solution  (maximum  of  20  terms,  default 

value  of  11  terms)  . , 

number  of  Bessel  series  terms  to  represent  solution  in 
the  baffle  compartments  (maximum  of  20  terms,  default 
value  of  8 terms) 

maximum  number  of  frequency  iterations  for  successive 

approximation  (default  value  of  9) 

chamber  length 

baffle  blade  length 

baffle  blade  thickness 

chamber  radius 

number  of  evenly  spaced  baffle  compartments 
(maximum  of  12  compartments) 
nozzle  throat  radius 

radius  of  curvature  at  nozzle  throat 
radius  of  curvature  at  nozzle  entrance 
nozzle  convergence  half  angle 

chamber  speed  of  sound  at  stagnation  conditions 
chamber  pressure  at  stagnation  conditions 
ratio  of  specific  heats 

peak  to  peak  pressure  amplitude  ( percent  of  mam 

dominating  transverse  mode  number  in  main  chamber 
dominating  radial  mode  number  in  main  chamber 
z location  where  combustion  starts 
z location  where  combustion  is  completed 
option  selection  as  described  above  ( 1 OR  2 ) 


DIMENSIONS 
( none  ) 


( none  ) 


( none  ) 


( none  ) 


( none  ) 


( none  ) 

( ft  ) 
( ft  ) 
( ft  ) 
( ft  ) 


IF  (0PT1  - 1)  THEN 

VAL1  : combustion  interaction  index  (n) 
VAL2  ' : combustion  time  lag  (t) 

VAL3  : not  used  in  this  option 

IF  (0PT1  - 2)  THEN 


( none  ) 

( ft  ) 

( ft  ) 

( ft  ) 
( deg  ) 
( ft/s  ) 
( psf  ) 
( none  ) 
chamber  ) 

( none  ) 
( none  ) 
( ft  ) 
( ft  ) 


( none  ) 
( msec  ) 


VAL1 

VAL2 

VAL3 


COPT 


starting  frequency 
ending  frequency 
frequency  increment 

cavity  option  ( 0 if  no  cavity,  1 if  cavity  present  ) 
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(hertz  ) 
(hertz  ) 
(hertz  ) 


I 


BETACR 

BETACI 

ZA 

POPT 


real  part  of  cavity  admittance  (ft/s)/(psf) 

imaginary  part  of  cavity  admittance  (ft/s)/(psf) 

z location  where  cavity  ends  (aperture  width)  ( ft  ) 

pressure  option  ( 1 if  pressure  points  are  to  be  calculated, 

0 if  no  pressure  calculations  are  to  be  made) 


VARIABLE 

N 


R 

THETA 

Z 


TABLE  8:  Input  variables  for  file  * PRESPT3 ' 


VARIABLE  DESCRIPTION 


DIMENSIONS 


number  of  points  to  be  calculated 

N number  of  sets  of  r, theta, z locations  for  pressure 

calculations 

radius 

angle  counterclockwise  from  first  baffle  blade 
axial  distance  downstream  from  injector 


( none  ) 


( feet  ) 
( deg,  ) 
( feet  ) 


3,2.3  - DISTRIBUTED  COMBUSTION  PROGRAM  OUTPUT 


The  output  file  generated  is  called  ' DIS0UT3 ' . This  file  starts  with  the 
chamber  geometry  and  operating  conditions,  this  includes  calculated  values  for 
nozzle  inlet  Mach  number,  steady  state  pressure  and  sound  speed.  For  each  u> 
frequency  iteration  the  iteration  number  and  frequency  is  printed  out.  After 
the  iteration  limit  is  reached  the  final  main  chamber  and  baffle  compartment 
Fourier -Bessel  coefficient  matrices  are  printed  out.  Next,  a calculation  of 
nozzle  admittance  based  on  tT  is  printed  out.  At  this  point  if  Option  one  is 
selected  the  chamber  complex  frequency  is  printed  out  (u  + iA)  , this  is  also 

K. 

represented  by  the  decay/growth  rate  factor.  If  Option  two  is  selected  the 
output  consist  of  a list  containing  frequency,  interaction  index  (n) , and 
combustion  time  lag  (r).  For  Option  two  an  additional  output  file  called 
NTDATA3  is  generated  which  contains  r,n  values  for  plotting  purposes. 

3.2.4  - DISTRIBUTED  COMBUSTION  PROGRAM  RESULTS  AND  DISCUSSION 

The  following  section  is  intended  to  show  some  of  the  capabilities  and 
predictions  of  the  three-dimensional  distributed  combustion  program.  The  same 
series  of  n,r  plots  that  were  presented  in  the  two-dimensional  section  are 
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presented  here. 

Run  time  for  the  three-dimensional  program  can  present  a problem  if  large 
matrices  are  kept.  Table  9 contains  run  time  data  for  the  three-dimensional 
program  run  in  Option  two  with  variable  matrix  sizes  and  constant  iteration 
limit  of  five.  All  timings  were  made  from  the  VAX  11/780  machine  at  Colorado 
State  University.  The  convergence  of  the  results  for  these  runs  was  very 
good,  that  is  the  smaller  matrices  results  compared  well  to  those  obtained 
with  the  larger  matrices.  This  result,  though,  is  for  only  one  specific  case 
and  should  not  be  assumed  true  for  all  cases . 


TABLE  9:  run  times  for  program  'DIST3D' 


MATRIX  SIZE 
MC  & MB  LC  & LB 


CPU  TIME 


20 

20 

4.6 

hours 

11 

8 

13 

min. 

11 

4 

3.4 

min. 

8 

4 

1.93 

min. 

The  baffled  chamber  geometry  and  other  input  parameters  used  for  the 
series  of  plots  are  listed  in  Table  10.  The  effect  of  baffle  length  on  pres- 
sure amplitude  is  shown  in  Figure  8.  The  long  baffle  (33.3%  of  chamber 
length)  induced  a large  pressure  amplitude  decrease  from  the  injector  face  (z 
- 0)  to  the  nozzle  (z  - ALENGTH)  while  the  short  (6.67%)  baffle  had  only  a 
minor  effect.  This  result  is  consistent  with  the  two-dimensional  predictions. 
The  effect  of  moving  a concentrated  combustion  zone  down  the  chamber  is  illus- 
trated in  Figure  9 for  a baffle  blade  length  that  is  6.67%  of  the  chamber 
length.  The  same  combustion  zone  movement  is  shown  in  Figure  10  for  a baffle 
blade  length  which  is  33.3%  of  the  chamber  length.  In  both  cases  (ZE  - ZS) 
equals  .1869ft,  and  ZS  is  varied  from  0 to  1.3706ft.  For  the  6.67%  baffle 
moving  the  combustion  zone  downstream  does  not  have  a large  effect  on  stabil- 
Again  this  result  is  due  to  the  fact  that  the  pressure  amplitude  does 
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not  change  significantly  downstream.  The  large  pressure  amplitude  decrease 
with  Z for  the  33.3%  baffle  explains  the  large  shifts  in  the  n,r  curves  as  the 
concentrated  combustion  zone  is  moved  toward  the  nozzle.  As  in  the  two- 
dimensional  case  all  the  combustion  zone  locations  for  the  large  baffle  cause 
a stabilizing  shift  upward  of  the  n,r  curves  as  well  as  a potentially  desta- 
bilizing flattening  of  the  curves.  Figure  11  shows  a set  of  curves  for  a 
33.3%  baffle  with  a combustion  zone  anchored  at  the  injector  and  extending 
different  distances  downstream  (i.e.  ZS  - 0,  ZE  - .1869,  0.77875,  1.5575 
(ft)).  As  can  be  readily  seen  distributing  the  combustion  has  a stabilizing 
effect.  The  final  plot  shows  stabilizing  effect  of  an  acoustic  absorber.  The 
absorber  used  had  a slot  width  of  ,0623ft  and  a pure  real  admittance  of 
. 04467 (f t/s)/(psf ) . 


TABLE 

10 

: Input  parameters 

used  for  3-E 

> plots 

MC 

8 

RE 

.216  ft 

LC 

- 

2 

MACH 

.06615 

MB 

- 

8 

ALPHA  - 

45  deg 

LC 

- 

2 

MX 

1 (spinning  wave) 

ALENGTH 

- 

1.5575  ft 

AO 

3850  ft/sec 

T 

- 

.03115  ft 

P0 

43,200  psf 

RCHAMB 

- 

.623  ft 

GAMMA  - 

1.2 

MUB 

- 

3 compartments 

PAMP 

20 

HST 

- 

.208  ft 

MHAT 

1 

IDMAX 

- 

8 

LHAT 

1 

RC 

- 

.216  ft 

3.2.5  - CONCENTRATED  COMBUSTION  PROGRAM  DESCRIPTION 

The  three-dimensional  concentrated  combustion  program  is  a modified  ver- 
sion of  the  program  that  appears  in  Reference  1.  The  same  modifications  made 
to  the  two-dimensional  program  were  made  to  the  three-dimensional  program  and 
are  listed  here  again.  First,  The  corrected  concentrated  combustion  model 
described  in  the  Theory  section  has  been  implemented.  Secondly,  the  axisym- 
metric  nozzle  admittance  prediction  model  and  program  References  2 (Aerojet's 
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NOZADM  program)  has  been  added  Finally,  all  of  the  nondimens ional  inputs  and 
outputs  have  been  dimensionalized . The  three-dimensional  concentrated  program 
is  only  capable  of  predicting  frequency  and  decay  rate  from  a given  n,r  point. 

3.2.6  - CONCENTRATED  COMBUSTION  PROGRAM  INPUT 


All  input  variables  for  the  main  program  are  read  in  from  file  'C0N3IN'. 
A list  of  the  required  inputs  is  described  in  Table  11.  The  variables  appear 
in  the  same  order  in  Table  11  as  they  do  in  the  file  and  need  only  to  be 
separated  by  commas. 


VARIABLE 


TABLE  11:  Input  variables  for  file  'C0N3IN' 

VARIABLE  DESCRIPTION  DIMENSIONS 


MX 


MC 


LC 


MB 


LB 


IDMAX  : 

ALENGTH  : 

ZB  : 

T : 

RCHAMB  : 

MUB  : 

HST  : 

RC  : 

RE 

ALPHA  : 

AO  : 

PO  : 

GAMMA 
PAMP 


variable  that  determines  what  type  of  main  chamber  ( none  ) 

waveform  is  present.  (MX  - 0 for  standing  waves, 

MX  - 1 for  spinning  waves) 

number  of  Fourier  series  terms  to  represent  the  ( none  ) 

main  chamber  solution  (maximum  of  20  terms.  default 
value  of  11  terms) 

number  of  Bessel  series  terms  to  represent  solution  in  ( none  ) 
the  main  chamber  (maximum  of  20  terms,  default  value 
of  8 terms) 

number  of  Fourier  series  terms  to  represent  the  baffle  ( none  ) 
compartment  solution  (maximum  of  20  terms,  default 
value  of  11  terms) 

number  of  Bessel  series  terms  to  represent  solution  in  ( none  ) 
the  baffle  compartments  (maximum  of  20  terms,  default 
value  of  8 terms) 

maximum  number  of  frequency  iterations  for  successive  ( none  ) 


approximation  (default  value  of  9) 

chamber  length  ( ft  ) 

baffle  blade  length  ( ft  ) 

baffle  blade  thickness  ( ft  ) 

chamber  radius  ( ft  ) 

number  of  evenly  spaced  baffle  compartments 

(maximum  of  12  compartments)  ( none  ) 

nozzle  throat  radius  ( ft  ) 

radius  of  curvature  at  nozzle  throat  ( ft  ) 

radius  of  curvature  at  nozzle  entrance  ( ft  ) 

nozzle  convergence  half  angle  ( deg  ) 

chamber  speed  of  sound  at  stagnation  conditions  ( ft/s  ) 

chamber  pressure  at  stagnation  conditions  ( psf  ) 

ratio  of  specific  heats  ( none  ) 


peak  to  peak  pressure  amplitude  ( percent  of  main  chamber  ) 
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MHAT 

LHAT 

AN 

TAU 


dominating  transverse  mode  number  in  main  chamber 
dominating  radial  mode  number  in  main  chamber 
combustion  interaction  index  (n) 
combustion  time  lag  (r) 


3.2.7  - CONCENTRATED  COMBUSTION  PROGRAM  OUTPUT 


( none  ) 
( none  ) 
( none  ) 
( msec  ) 


The  output  of  the  concentrated  combustion  program  is  written  into  file 
C0N30UT  . The  output  starts  with  a listing  of  the  geometrical  inputs  and 
operating  conditions  such  as  nozzle  inlet  Mach  number,  steady  state  chamber 
pressure  and  sound  speed.  For  each  frequency  iteration  the  program  outputs 
the  complex  frequency  (hertz)  and  iteration  number.  After  the  iteration  limit 
is  reached  the  final  chamber  and  baffle  compartment  matrices  are  printed  out. 
The  final  output  includes  the  decay  rate  with  baffle  dissipation  included, 

this  is  also  presented  as  decay  in  decibels/cycle  and  the  decay/growth  rate 
factor. 
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ALENGTH  = 1.558  ft  R = 0.623  ft  (wall  of  chamber)  ZS  = 0.0.  ZE  - 1.558 


Figure  9 


NEUTRAL  STABILITY  MAP  FDR  A 3-D  CHAMBER,  CONCENTRATED  COMBUSTION  ZONES 


Chamber  dimensions  (ft):  length  = 1.5575 

Baffle  dimensions  (ft):  length  = 0.1038 

Steady  state  speed  of  sound  = 3850.0  ft/s 
Steady  state  pressure  = 43200.0  psf 

Ratio  of  specific  heats  = 1.2 
Frequency  range  (Hz) : 1800  to  1950 


radius  = 0.623 
thickness  = 0.03115 


Mode:  First  tangential 

No.  of  baffles:  3 


ZONES  (distance  in  feet  from  injector  plate) : 

ZS  — 0.0  to  ZE  = 0.1869  (no  baffles  present) 
B:  ZS  = 0.0  to  ZE  = 0.1869 

C:  ZS  = 0.4257  to  ZE  = 0.6126 

D:  ZS  = 1.3706  to  ZE  = 1.5575 


Figure  TO 

neutral  stability  map  FOR  A 3-D  chamber,  (xjncenirated  combustion  zones 


Chamber  dimensions  (ft):  length  = 1.5575  radius  = 0.623 

Baffle  dimensions  (ft):  length  = 0.51917  thickness  = 0.03115 

Steady  state  speed  of  sound  = 3850.0  ft/s 
Steady  state  pressure  = 43200.0  psf 

Ratio  of  specific  heats  =1.2  Mode:  First  tangential 

Frequency  range  (Hz):  1000  to  1500  No.  of  baffles:  3 

ZONES  (distance  in  feet  fran  injector  plate) : 


A: 

ZS  = 

0.0 

to 

ZE  = 0.1869 

B: 

ZS  = 

0.4257 

to 

ZE  = 0.6126 

C: 

ZS  = 

1.3706 

to 

ZE  = 1.5575 

l 


Figure  11 


NEUTRAL  STABILITY  MAP  FDR  A 3-D  CHAMBER,  DISTRIBUTED  OOMBUSTION  ZONES 


Chainber  dimensions  (ft):  length  = 1.5575  radius  = 0.623 

Baffle  dimensions  (ft):  length  = 0.51917  thickness  = 0.03115 

Steady  state  speed  of  sound  = 3850.0  ft/s 
Steady  state  pressure  = 43200.0  psf 

Ratio  of  specific  heats  =1.2  Mode:  First  tangential 

Frequency  range  (Hz) : 1000  to  1500  No',  of  baffles:  3 

ZONES  (distance  in  feet  from  injector  plate) : 

A:  ZS  = 0.0  to  ZE  = 0.1869  (no  baffles  present) 

B:  ZS  = 0.0  to  ZE  = 0.1869 

C:  ZS  = 0.0  to  ZE  = 0.77875 

D:  ZS  = 0.0  to  ZE  = 1.5575 


Tau  (msec) 
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Figure  12 


NEUTRAL  STABILITY  MAP  FOR  A 3-D  CHAMBER,  DISTRIBUTED  COMBUSTION  ZONES 


Chamber  dimensions  (ft) : length  = 1.5575  radius  = 0.623 

Baffle  dimensions  (ft):  length  = 0.51917  thickness  = 0.03115 

Steady  state  speed  of  sound  = 3850.0  ft/s 
Steady  state  pressure  = 43200.0  psf 

Patio  of  specific  heats  =1.2  Mode:  First  tangential 

Frequency  range  (Hz) : 1000  to  1500  No.  of  baffles:  3 

cavity  admittance  (ft/s)/ (psf) : real  = 0.04467  imaginary  =0.0 

Cavity  aperture  width  = 0.0623  ft 


ZONES  (distance  in  feet  from  injector  plate) : 

A:  ZS  = 0.0  to  ZE  = 1.5575  - without  cavity  dissipation 
B:  ZS  = 0.0  to  ZE  = 1.5575  - with  cavity  dissipation 
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NOMENCLATURE 


Symbols : 

Ad 

c 

C„ 


■PL 


D 

h 

I 

Ji 

k 

K 


% 


m 

mt 

M 

n 

n 


Pr 

r 


R 

Re 

S 


v,l 


Droplet  surface  area. 

Speed  of  sound. 

Drag  Coefficient. 

Specific  heat  of  propellant  liquid. 

Drag  force. 

Convection  heat  transfer  coefficient. 

Imaginary  part  of  the  combustion  response  factor. 

Bessel  function  of  the  v*-  order. 

Thermal  conductivity  of  the  combustion  gas. 

Mass  transfer  coefficient. 

Instantaneous  droplet  mass. 

Initial  droplet  mass. 

Molecular  weight  of  the  combustion  gas. 

Molecular  weight  of  the  propellant. 

Pressure  interaction  index. 

Number  of  droplets  in  an  array. 

Chamber  pressure. 

Propellant  vapor  pressure. 

Combustion  gas  Prandtl  number. 

Radial  coordinate  normalized  by  the  chamber  radius. 
Droplet  radius. 

Universal  gas  constant. 

Reynolds  number. 

Eigenvalues  correspond  to  the  radial  and  the  tangential 
resonance  modes  v and  . 
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Combustion  gas  Schmidt  number. 

Time . 

Droplet  life  time. 

Temperature  of  the  combustion  gas. 

Temperature  of  the  droplet. 

Film  temperature. 

Axial  gas  velocity  component. 

Final  gas  velocity. 

Radial  gas  velocity  component. 

Gas  velocity  vector. 

Droplet  velocity  vector. 

Radial  velocity  of  the  propellant  vapor  leaving  the 
droplet. 

Tangential  velocity  component. 

Total  evaporation  rate  of  an  array  of  droplets 
Axial  coordinate. 

Combustion  response  factor 
Radial  resonance  mode  number. 

Tangential  resonance  mode  number. 

Maximum  pressure  amplitude. 

Angular  frequency  of  the  acoustic  oscillations. 
Phase  angle  of  the  acoustic  oscillations. 

Specific  heat  ratio  of  the  combustion  gas. 

Density  of  the  combustion  gas. 

Density  of  the  propellant  vapor. 

Density  of  the  propellant  liquid. 

Vaporization  rate. 

Heat  of  Evaporation. 


Diffusion  coefficient. 

Viscosity  of  the  combustion  gas. 
Real  part  of  the  combustion  factor. 
Sensitive  time  lag. 

Tangential  coordinate. 

Subscripts: 

d Droplet. 

1 Propellant  liquid, 

v Propellant  Vapor. 

1 Perturbation  component. 

Superscripts: 

— Mean  component. 

Vector  quantities. 
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I.  INTRODUCTION 


Aerojet  TechSystems  Company  is  currently  conducting  a program 
(contract  F04611-85-C-0100)  to  formulate  a procedure  (Ref.  l) 
which  can  accurately  characterize  injector  designs  for  large  thrust 
(0.5  to  2.0  million  pounds)  high  pressure  (500  to  3000  psia) 
LOX/hydrocarbon  engines.  As  part  of  the  development  of  models  for 
use  in  the  procedure,  a computer  code.  Combustion  Response 
Prediction  (CRP) , has  been  developed  to  calculate  the  combustion 
response  factor  which  indicates  the  open-loop  response  of  the 

burning  rate  to  a specified  acoustic  oscillations  in  the  combustion 
chamber. 

1.1  High-Frequency  Combustion  Stability 

Combustion  instability,  characterized  by  organized  pressure 
oscillations  in  rocket  combustion  chamber,  can  cause  severe 
vibrations  on  various  engine  system  components  and  payloads.  in 
addition,  combustion  instabilities  may  cause  excessive  mechanical 

stresses  and  heat  loads  on  the  injector  and  combustion  chamber 
walls. 

Combustion  instabilities  have  been  generally  classified 
according  to  their  frequency  range:  low,  intermediate  and  high 

frequency.  Significant  efforts  have  been  devoted  to  the 
understanding  of  high-frequency  instability  because  it  is  the  most 
common  in  new  engine  developments  and  is  the  most  destructive. 
High-frequency  instability  results  from  the  coupling  between  the 
combustion  process  and  the  acoustic  waves  in  the  chamber. 
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1.2  Combustion  Response 


Analytical  models  capable  of  characterizing  combustion 
instability  are  obviously  useful  and  valuable  to  engine  designers 
during  the  development  stage.  As  mentioned  in  the  above  section, 
high-frequency  instability  results  from  the  coupling  between  the 
combustion  process  and  the  acoustic  waves  in  the  chamber.  Thus, 
the  stability  of  a given  engine  with  specified  operating  conditions 
can  be  determined  from  the  chamber  transfer  function  and  the 
burning  transfer  function.  The  chamber  transfer  function  is 
defined  in  reference  11  as  the  ratio  of  the  pressure  oscillation  to 
the  buring  rate  oscillation  normalized  respectively  by  the  mean 
pressure  and  the  mean  burning  rate.  Conversely,  the  burning 
transfer  function  or  the  combustion  response  is  defined  as  the 
ratio  of  the  buring  rate  oscillation  to  the  pressure  oscillation 
also  normalized  by  the  mean  burning  rate  and  the  mean  pressure. 

The  burning  transfer  function  indicates  the  response  of  the 
combustion  process  to  the  acoustic  waves  in  the  chamber. 

Previously,  a computer  code,  HIFI  (Ref.  2)  has  been  developed  to 
calculate  the  chamber  transfer  function.  The  burning  transfer 
function  was  more  difficult  to  predict  analytically,  therefore  m 
the  past  it  was  expressed  in  term  of  an  interaction  index,  n and  a 
combustion  time  lag, X . The  values  of  n and  X are  determined 
empirically. 

1.3  Objective  of  the  Present  Study 

The  objective  of  the  present  study  is  to  provide  a computer 
code  to  predict  the  burning  transfer  function.  Results  from  the 
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code  are  used  together  with  the  HIFI's  prediction  of  the  chamber 

transfer  function  to  predict  the  high-frequency  stability  of  rochet 
engines. 


1.4  Approach 

The  approach  tahen  is  to  modify  the  Agosta  and  Hammer's 
computer  model  (Ref.  4,  which  was  developed  to  study  the 

vaporization  response  of  oxygen  droplets.  Modifications  made  to 
the  model  include  the  following: 

1.  The  model  was  extended  from  IT  traveling  mode  to  mixed 
radial  and  tangential  modes  up  to  a combination  of  eR  and  8T.  The 
acoustic  modes  can  be  either  standing  or  spinning. 

2.  Subroutines  for  calculating  the  Bessel  functions  of  any 
order  were  developed  and  implemented  into  the  computer  code.  The 

values  of  the  Bessel  functions  are  calculated  internally  instead  of 
being  input  by  the  users. 

3.  The  finite-thermal-conductivity  assumption  was  replaced  by 
the  uniform-droplet-temperature  assumption.  This  was  done  since 
predictions  of  droplet  evaporation  rates  in  steady  gas  environments 
using  the  latter  assumption  agree  better  with  the  experimental 
data.  The  latter  assumption  is  also  necessary  to  reduce  the 
computer  time  requirement  to  a practical  level. 

4.  The  time  step  used  in  the  calculation  of  droplet 
evaporation  history  is  determined  internally  by  the  computer  code 
instead  of  being  input  by  the  users.  The  value  of  the  time  step  is 
determined  based  on  the  period  of  oscillations  and  the  droplet 
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lifetime. 


5.  The  original  model  calculates  the  response  factor  for 
droplets  injected  at  a specified  radial  and  circumferential 
location  on  the  injector.  Because  pressure  and  velocity 
oscillations  vary  with  radial  and  circumferential  locations,  the 
response  factor  also  varies  with  the  locations.  To  account  for 
this  effect,  the  resultant  response  factor  is  obtained  by  averaging 
the  response  factors  calculated  at  several  different  radial  and 
circumferential  locations. 

6.  The  symmetry  of  the  standing  modes  is  taken  into  account 
to  reduce  the  number  of  circumferential  injection  locations.  This 
results  in  substantial  saving  of  computer  time. 

7.  The  original  computer  code  requires  the  users  to  input 
expressions  for  calculating  the  heat  of  vaporization  and  the  vapor 
pressure  as  functions  of  temperature,  and  the  diffusion  coefficient 
as  a function  of  pressure  and  temperature.  In  general,  this 
requires  the  users  to  search  literature  for  appropriate 
correlations  and  to  compute  the  parameters  used  in  the  correlations 
for  the  propellants  of  interest.  Modifications  were  made  to  the 
code  so  that  the  correlations  are  built  into  the  code.  Watson's 
correlation  is  used  for  calculating  the  heat  of  vaporization, 
Reidel's  correlation  is  used  for  calculating  the  vapor  pressure, 
and  Mathur  and  Thodos ' correlation  is  used  for  calculating  the 
diffusion  coefficient.  The  parameters  used  in  these  correlations 
are  calculated  internally  by  the  code  using  user  input  data,  e.g. 
molecular  weight,  critical  temperature  and  pressure.  These  data 
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are  existing  for  most  propellants  and  can  be  easily  found  in 
existing  literature,  for  example  the  Aerojet  Handbook  of  Properties 
and  Performance  of  Liquid  Rocket  Propellants  (Ref.  5) 


J-117 


II.  THEORY 


The  theory  in  the  present  study  follows  closely  references  3 
and  4.  In  the  present  study,  mixing  and  reaction  is  assumed  to  be 
so  fast  that  the  burning  rate  is  assumed  to  be  vaporization 
limited.  Therefore,  the  terms  burning  rate  and  vaporization  rate 
are  interchangable  within  the  context  of  the  present  study. 

The  following  sections  describe  in  details  the  theory,  the 
equations,  and  the  calculation  procedure  used  in  the  present  model 
to  calculate  the  response  factor. 

2.1  Theory  Description 

First,  the  equations  describing  the  pressure  and  the  velocity 
oscillations  are  prescribed  for  an  acoustic  mode  in  the  chamber. 

The  evaporation  rates  of  a single  droplet  injected  into  the  chamber 
is  calculated  assuming  the  heat  and  the  mass  transfer  processes 
between  the  droplet  and  the  surrounding  combustion  gas  are  at 
quasi-steady  state.  The  convection  heat  rate  and  the  mass 
vaporization  rate  are  calculated  using  the  Ranz-Marshall ' s 
correlations  for  the  heat  transfer  and  the  mass  transfer 
coefficient  (Ref.  6).  An  energy  balance  is  then  applied  to  the 
droplet  to  calculate  the  rate  at  which  the  droplet  is  heated  up 
(see  equation  11  in  chapter  III) . The  theory  just  described  is 
used  to  calculate  the  vaporization  history  of  single  droplets 
injected  into  the  chamber.  The  vaporization  history  includes  the 
temporal  variations  of  the  diameter,  the  temperature  and  the 
vaporization  rate  of  the  droplet. 
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The  continuous  injection  of  propellant  is  simulated  by  arrays 
of  single  droplets  that  are  injected  from  the  various  radial  and 
circumferential  locations.  Each  of  the  arrays  are  comprised  of 
droplets  that  are  injected  from  the  same  location  but  at  different 
times  during  an  oscillation  period  of  the  acoustic  fields.  The 
previously  described  procedure  for  calculating  the  evaporation 
history  of  a single  droplet  is  used  to  calculate  the  evaporation 
histories  of  each  of  the  droplets  in  the  array.  The  total 
evaporation  rate  of  the  array  is  then  calculated  by  summing  the 
evaporation  rates  of  each  of  the  individual  droplets.  The  total 
evaporation  rate  includes  the  perturbation  component  that  is 
induced  by  the  acoustic  oscillations.  An  in-phase  response  factor 
and  an  out-of-phase  reponse  factor  are  then  calculated.  The 
in-phase  response  factor  is  defined  as  the  normalized  ratio  of  the 
combustion  rate  perturbation  component  that  is  in  phase  with  the 
pressure  oscillation.  Similarly,  the  out-of-phase  response  factor 
is  defined  as  the  normalized  ratio  of  the  combustion  rate 
perturbation  component  that  is  out  of  phase  with  the  pressure 
oscillation.  The  ratios  are  normalized  by  the  mean  combustion  rate 
and  the  mean  pressure.  Because  pressure  and  velocity  oscillations 
vary  with  radial  and  circumferential  locations,  the  response  factor 
for  an  array  of  droplets  injected  from  one  radial  and 
circumferential  location  may  be  different,  in  general,  from  the 
response  factors  calculated  for  arrays  of  droplets  injected  from 
other  locations.  In  order  to  account  for  this  effect,  the 
resultant  response  factor  is  obtained  by  averaging  the  response 
factors  calculated  at  various  injection  locations. 
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2.2  Equation  Description 
2.2.1  Chamber  Acoustics 


The  expressions  for  the  instantaneous  values,  which  comprise 
the  mean  and  the  perturbation  components,  of  the  pressure  and  the 
velocity  of  a gas  in  a closed  cylinder  have  been  derived  in 
reference  7 as: 
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for  a standing  wave  motion. 

The  above  expressions  are  for  the  transverse  wave  motion  and 
have  been  written  on  the  assumptions  that  the  chamber  is  a 
closed-end  cylinder.  In  these  expressions  p,  v and  w are  the 
instantaneous  pressure,  and  radial  and  tangential  velocities  of  the 
gas,  respectively;  p is  the  mean  pressure;  Ap  is  the  maximum 
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amplitude  of  the  pressure  oscillations  for  a particular  mode;  c is 
the  mean  speed  of  sound  in  the  chamber;  is  the  specific  heat 
ratio  of  the  gas  in  the  chamber;  r is  the  radial  coordinate 
normalized  by  the  chamber  radius;  * is  the  tangential  coordinates, 
^ is  the  angular  frequency;  t is  the  time;  <t>  is  the  phase  angle;  JJ 
and  ^ are  the  numbers  of  the  radial  and  tangential  resonance  modes, 
respectively.  J,  is  the  border  Bessel  function  of  the  first 
kind;  J„  is  the  derivative  of  with  respect  to  s^r;  and  the 
values  of  are  given  in  table  2.1  for  selected  values  of P and 
1 l’  Jt  should  be  noted  that  the  maximum  amplitude  of  the  pressure 
oscillation  has  been  normalized  by  the  mean  pressure,  and  that  the 
means  of  the  radial  and  the  tangential  velocity  components  have 
been  assumed  to  be  equal  to  zero. 


The  instantaneous  temperature  of  the  gas,  T can  be  related  to 
the  pressure  using  the  following  isentropic  relations: 


if-  ' 


where  T is  the  mean  temperature  of  the  gas.  The  instantaneous 
density  of  the  gas,p  can  be  related  to  the  temperature  and  the 
pressure  using  the  equation  of  state: 


P M 
£ "T 
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where  R is  the  universal  gas  constant,  and  M is  the  molecular 
weight  of  the  gas. 


The  mean  sound  speed  used  in  equations  (2),  (3),  (5)  and  (6) 
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7.0155 
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1.8413 
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11.7059 

14.8635 

3.0543 

6.7060 

9.9695 

13.1705 

16.3476 

4.2013 

8.0151 

11.3459 

| 14.5858 

17.7890 

5.3175 

9.2825 

12.6820 

| 15.9640 

19.1961 

6.4154 

10.5199 

13.9873 

| 17.3127 

20.5755 

7.5012 

11.7348 

15.2681 

| 18.6375 

21.9318 

8.5778 

| 12.9324 

16.5295 

| 19.9419 

23.2682 

9.6475  | 

1 

j 14.1155 

1 

17.7739 

| 21.2290 
1 

24.5874 

Table  2.1:  Selected  Values  of  S . 
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can  be  expressed  in  terms  of  the  molecular  weight  and  the  mean 
temperature  of  the  gas: 


c 


(9) 


the  means  of  the  radial  and  the  circumferential 
components  of  the  velocity  are  assumed  to  be  zero,  the  mean  of  the 
axial  component,  u is  non-zero  and  it  is  a function  of  the  axial 
coordinate,  x 


U = *U  (10. a) 

which  is  assumed  to  be  known  apriori.  The  axial  profile  of  the 
mean  velocity  can  be  obtained,  for  example,  from  the  steady-state 
performance  analysis.  For  simplicity,  in  the  present  analysis,  the 
velocity  is  assumed  to  be  in  the  following  form: 

« = ^ <10. b)- 

where  u^  is  the  final  gas  velocity,  m is  the  instantaneous  value  of 
the  droplet  mass,  and  m-t  is  the  initial  value  of  the  droplet  mass. 
This  assumption  implies  the  gas  mean  velocity  varying  with  the 
axial  coordinate.  It  simplifies  the  analysis  since  one  does  not 
have  to  compute  and  keep  track  of  the  axial  location  of  the 
droplet. 

Equations  (1)  through  (10)  completely  describe  the  temporal 
and  spatial  variations  of  the  gas  properties,  i.e.  pressure. 
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density,  temperature  and  velocities. 

2.2.2  Vaporization  of  a Single  Droplet 

Neglecting  the  radiation  heat  transfer,  an  energy  balance 
applied  to  a droplet  which  undergoes  heat  and  mass  transfer 
simultaneously  yields: 

(t-Tj)  + iri1  (11) 

where  h is  the  convective  heat  transfer  coefficient,  is  the 
surface  area  of  the  droplet,  T is  the  gas  temperature,  is  the 
droplet  temperature,  y is  the  mass  evaporation  rate,  is  the 
enthalpy  of  evaporation,  m is  the  instantaneous  mass  of  the 
droplet,  CpL  is  the  specific  heat  of  the  liquid  propellant,  and  v^ 
is  the  velocity  of  the  vapor  leaving  the  droplet.  Assuming  the 
vaporizing  mass  leaving  the  droplet  radially,  vf  can  be  related  to 
the  mass  evaporation  rate,  y , the  droplet  surface  area,  A4 , and 
the  vapor  density,  P : 

% = — (H-a) 

The  left-hand  side  of  equation  (11)  represents  the  heat  rate 
transfered  to  the  droplet  by  convection;  the  first  term  on  the 
right-hand  side  of  the  equation  represents  the  heat  required  to 
vaporize  the  mass  leaving  the  droplet;  the  second  term  on  the  right 
hand  side  of  the  equation  is  the  kinetic  energy  that  is  imparted  to 
the  vaporizing  mass;  and  the  remaining  term  represents  the  energy 
required  to  heat  up  the  droplet.  The  kinetic  energy  term  is  very 
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small  compared  to  the  other  two  terms  when  the  droplet  temperature 
is  far  below  the  critical  point  of  the  propellant.  Therefore,  it 
has  been  neglected  in  many  of  the  past  studies.  It  becomes 
increasingly  important  as  the  droplet  temperature  increases, 
especially  as  the  temperature  approaches  the  critical  temperature 
of  the  propellant  because  at  this  temperature,  the  heat  of 
evaporation  in  the  first  term  approaches  zero  and  the  mass 
"evaporation”  rate  approaches  infinity.  In  rocket  engines  with 
high  chamber  pressure  such  as  those  considered  in  the 
Lox/hydrocarbon  Injector  Characterization  Program,  the  temperature 
of  the  propellant  droplet  is  expected  to  be  very  high  and  it  may 
approach  or  even  exceed  the  critical  temperature  of  the  propellant. 
Thus,  the  kinetic  energy  term  must  be  included.  In  the  above 
equation,  the  temperature  of  the  droplet  has  been  assumed  to  be 
uniform. 

The  mass  evaporation  rate  is  given  by: 


where  p is  the  total  gas  pressure,  p is  the  vapor  pressure  of  the 

droplet,  and  K is  the  mass  transfer  coefficient.  The  heat 

0 

transfer  and  the  mass  transfer  coefficients  are  obtained  from  the 
empirical  correlations  of  reference  6: 
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In  equations  (13)  and  (14);  r^  is  the  droplet  radius?  k is  the 
gas  thermal  conductivity;  Pr  and  Sc  are  the  gas  Prandtl  and  Schmidt 
numbers,  respectively;  R is  the  universal  gas  constant;  is  the 
molecular  weight  of  the  propellant  vapor,  & is  the  binary  diffusion 
coefficient  of  the  vapor  and  the  combustion  gas,  is  the  film 

temperature  which  is  defined  as  the  arithmetic  mean  of  the  gas  and 
the  droplet  temperatures: 


(15) 


and  Re  is  the  Reynolds  number  which  bases  on  the  relative  velocity 
of  the  gas  and  the  droplet: 


(16) 


where  is  the  gas  viscosity,  and  V and  are  the  velocities  of 
the  gas  and  the  droplet,  repectively.  The  velocity  of  the  droplet 
is  changing  with  time  due  to  the  drag  exerted  on  the  droplet  by  the 
surrounding  gas.  Although,  the  viscous  effects  of  the  gas  on  the 
droplet  motion  are  considered,  acceleration  or  deceleration  of  the 
gas  through  viscous  interaction  with  the  droplet  is  neglected.  The 
drag  exerted  on  the  droplet  is  written  as: 


^ = c.-rcg"  ( ± ?av 
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where  C is  the  drag  coefficient 
c> 

-o. 
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(18) 
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and 


AV 


(19) 


= V -V 


is  the  gas  velocity  relative  to  the  droplet.  Newton's  second  law 

is  then  applied  to  calculate  the  rate  of  change  of  the  droplet 
velocity: 

t> 


where  ^ is  the  density  of  the  propellant  liquid. 

The  perturbation  components  of  the  gas  velocity  and  the 
density  are  included  in  the  calculation  of  the  Reynolds  number, 
therefore  the  mass  evaporation  rates  are  affected  by  the  acoustic 
oscillations.  Nevertheless,  The  effects  of  the  acoustic 
perturbations  on  the  radial  and  the  circumferential  components  of 
the  droplet  velocity  are,  neglected,  i.e.  the  radial  and  the 
circumferential  components  of  the  droplet  velocity  always  remain  to 
be  zero  (the  radial  and  the  circumferential  components  of  the 

droplet  velocity  at  the  instant  of  injection  have  also  been  assumed 
to  be  zero) . 


The  time  rate  of  change  of  droplet  velocity  is  given  by 
equation  (20).  The  time  rate  of  change  of  droplet  temperature  can 
be  obtained  by  rearranging  equation  (11): 
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and  the  time  rate  of  change  of  droplet  radius  can  be  related  to  the 
mass  evaporation  rate,  by  assuming  constant  propellant  liquid 
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density: 


A4^ 


(22) 


The  radius,  temperature  and  velocity  of  the  droplet  at  the 
next  time  step  can  be  calculated  from  the  known  values  of  the 
functions  and  their  derivatives  at  the  current  time  using  the 
Euler's  explicit  integration,  which  is  illustrated  in  the  following 
equation  for  a general  function,  f: 


= -f 

+ — 

b 

Air 


(23) 


It  should  be  noted  that  the  gas  transport  properties  such  as 
k and  used  in  all  of  the  above  equations  are  evaluated  at  the 


film  temperature. 


Equations  1 through  23  are  sufficient  to  calculate  the 
variations  of  the  diameter,  temperature,  velocity  and  the 
evaporation  rate  of  a droplet  as  functions  of  time  provided  that 
the  time  and  the  location  of  injection  are  known  and  that  the 
initial  properties,  i.e.,  diameter,  temperature  and  velocity  of  the 
droplet  are  known  at  the  instant  of  injection. 


When  the  droplet  temperature  reaches  the  boiling  temperature 
of  the  propellant,  numerical  problem  arises  as  the  mass  evaporation 
rate  calculated  using  equation  (12)  approaches  infinity.  Under 
this  condition,  the  mass  evaporation  rate  is  calculated  directly 
from  the  energy  equation,  equation  (11),  with  the  droplet-heat-up 
term  being  set  to  zero.  This  approach  not  only  avoids  the 
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numerical  problem  but  is  also  more  realistic  since  the  evaporation 
rate  is  finite.  The  approach  is  extended  also  to  the  cases  where 
the  droplet  temperature  reaches  the  critical  temperature  of  the 
propellant.  it  has  been  implied  that  when  the  droplet  temperature 
reaches  the  boiling  or  the  critical  temperature  of  the  propellant, 
no  further  heating  of  the  droplet  is  allowed. 

As  previously  mentioned  in  this  section,  the  temperature  of 
the  droplet  has  been  assumed  to  be  uniform.  Two  other  assumptions 
- temperature  gradients  exist  inside  the  droplet  (finite  thermal 
conductivity) , and  uniform  temperature  inside  the  droplet  with  a 
step  change  at  the  droplet  surface  (zero  thermal  conductivity  or 
onion  skin)  - are  also  considered  but  found  to  be  unacceptable  in 
the  present  study.  The  analysis  assuming  zero-thermal-conductivity 
is  not  described  here  since  it  is  simple  and  similar  to  the 
analysis  assuming  uniform-temperature  described  in  this  section. 

The  analysis  assuming  finite-thermal-conductivity  is  also  not 
described  here  since  it  has  been  described  in  reference  4.  In  this 
reference,  the  temperature  distribution  inside  the  droplet  is 
assumed  to  be  spherically  symmetric. 

Although  the  finite-thermal-conductivity  assumption  appears  to 
be  more  realistic  than  the  other  assumptions,  the  assumption  of 
spherically  symmetric  temperature  distribution  is  dubious 
especially  when  the  droplet  is  under  strong  convection  environments 
such  as  those  in  the  combustion  chambers. 

The  uniform-temperature-assumption  is  justifable  when  the 
thermal  conductivity  of  the  droplet  is  high  or  strong  circulating 
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flows  exist  inside  the  droplet.  The  circulating  flows  inside  a 
droplet  in  a strong  convection  environment  are  generally  believed 
to  exist  as  a result  of  the  shear  force  at  the  droplet  surface. 
Therefore,  the  uniform-droplet-temperature  assumption  has  been  used 
commonly  in  the  combustion  or  vaporization  studies  of  droplet  under 
convection,  for  example  references  8 and  9.  This  assumption  is 
adopted  in  the  present  study  because  calculations  of  the 
evaporation  histories  of  droplets  vaporizing  in  steady  environments 
assuming  uniform-droplet-temperature  agree  well  with  the 
experimental  data  (see  section  4.1).  Furthermore,  the  analysis 
using  the  assumption  is  simple  and  requires  significantly  less 
computer  time  than  the  analysis  using  the 
finite-thermal-conductivity  assumption. 

The  analysis  using  the  zero-thermal-conductivity  assumption  is 
also  simple  and  has  approximately  the  same  computer  time 
requirement  as  its  uniform-temperature  counterpart.  Its 
predictions  of  the  evaporation  histories  of  droplets  vaporizing  in 
steady  environments,  however,  did  not  agree  well  with  the  data  (see 
section  4.1). 

2.2.3  Evaporation  of  an  Array  of  Droplets 

The  section  2.2.2  described  equations  used  for  the  calculation 
of  the  evaporation  rate  of  a single  droplet.  The  evaporation  rate 
of  an  array  of  droplets  is  simply  the  sum  of  the  evaporation  rates 
of  each  of  the  individual  droplets  that  constitute  the  array. 

The  continuous  injection  of  propellant  into  the  chamber  is 
simulated  by  the  repreated  injections  of  single  droplets.  Because 
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of  the  oscillations  in  the  gas  properties  which  directly  affect  the 
vaporization  rate,  the  evaporation  history  of  a droplet  injected  at 
one  instant  of  time  may  be,  in  general,  different  from  the 
evaporation  histories  of  droplets  injected  at  the  same  location  but 
at  different  times.  Droplets  injected  at  times  which  are  multiple 
oscillation  periods  apart,  however,  will  have  identical 
vaporization  histories  since  they  experience  the  identical  time 
histories  of  gas  thermodynamics  and  flow  fields.  The  droplets  will 
eventually  disappear  after  they  completely  vaporize.  If  the 
droplets  in  an  array  are  injected  into  the  chamber  at  times  evenly 
distributed  over  one  oscillation  period,  then  at  "steady-state" 
conditions  the  number  of  droplets  disappearing  are  equal  to  the 
number  of  droplets  entering  the  chamber.  Thus,  the  instantaneous 
total  evaporation  rate,  W(t)  is  obtained  by  appropriately  summing 

the  evaporation  rates  of  each  of  the  droplets  which  exist  at  the 
time . 

*U 

5 L_  4^(0  (24) 

n - i 

where  vj^(t)  is  the  evaporation  rate  of  the  droplet  n,  and  n^  is  the 
number  of  droplets  existing  at  time  t.  This  total  burning  rate  is, 

of  course,  periodic  and  dependent  on  the  frequency  of  the  acoustic 
fields. 

2.2.4  In-Phase  and  Out-Of-Phase  Response  Factors 

The  total  burning  rate  (hereafter  will  be  referred  to  simply 
as  the  burning  rate)  includes  a perturbation  component  that  is 
induced  by  the  chamber  acoustic  fields.  Figure  2.1  shows,  as  an 
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example,  the  perturbation  component  of  the  burning  rate  which  is 

induced  by  the  oscillations  of  the  pressure  and  the  velocity  and 

other  thermodynamic  properties.  The  pressure  and  velocity 

oscillations  are  shown  in  figures  2.2,  2.3  and  2.4,  respectively. 

» 

The  spikes  in  the  burning  rate  curve  are  the  results  of  the  use  of 
a finite  number  of  droplets  to  represent  the  continuous  injection 
of  the  propellant.  In  this  example,  80  droplets  are  injected  at 
equal  time  intervals  during  an  oscillation  period. 

The  correlations  between  the  the  burning  rate  and  the  pressure 
oscillations  describe  the  magnitude  of  the  response  of  the  burning 
rate  to  the  acoustic  fields  in  the  chamber.  Thus,  they  indicate 
the  relative  stability  of  the  combustion. 

The  in-phase  response  factor  defined  as: 

W ' p'  ^ ) 

rir  7 (25) 

p' 

is  a correlation  of  the  burning  rate  component  that  is  in  phase 
with  the  pressure  oscillation. 


The  out-of-phase  response  factor  defined  as: 


f -*  z- 

\ p i ( oOi) 

is  a correlation  of  the  burning  rate  component  that 


with  the  pressure  oscillation. 


(26) 


is  out  of  phase 


In  equations  (25)  and  (26) , W'  is  the  normalized  perturbation 
component  of  the  burning  rate.  It  is  defined  in  terms  of  the 
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Figure  2.2  : Normalized  Acoustic  Pressure  Oscillation  Component. 
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instantaneous  burning  rate,  W and  the  mean  burning  rate,  W as 
follows: 


where 


t W - W 

W = — 

w 

, p 2"iu 

W = \ vV  ^ 

2-n:  JD 


(27) 


(28) 


p'  is  the  perturbation  component  of  the  pressure  at  r and  and  p* 
is  a sinusoidal  function  having  the  same  amplitude  and  frequency 
but  90  degrees  out  of  phase  with  p'. 


The  reponse  factors  defined  by  equations  (25)  and  (26)  vary 
w^th  radial  and  circumferential  position  because  of  the  spatial 
variations  of  the  pressure  and  the  burning  rate.  To  account  for 
this  effect,  the  chamber  cross-sectional  area  is  divided  into  a 
number  of  equal  areas  in  both  radial  and  circumferential 
directions.  The  response  factors  are  calculated  at  each  of  the 
centers  of  the  areas.  They  are  then  averaged  to  obtain  the 
resultant  response  factor. 


2.3  Calculation  Procedure 


The  following  procedure  is  used  to  calculate  the  in-phase  and 
the  out-of-phase  response  factors  as  functions  of  the  frequency: 

1.  Beginning  with  the  first  droplet  injected  at  time  t; 
equations  (1)  to  (9)  are  used  to  calculate  the  instantaneous  gas 
pressure,  velocity,  temperature  and  density  at  the  time  t. 

2.  Calculate  the  mean  gas  velocity  using  equation  (10). 
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3.  Calculate  the  film  temperature  using  equation  (15). 

Evaluate  the  gas  transport  properties,  i.e.  thermal  conductivity, 
viscosity,  etc. . . at  the  film  temperature. 

4 . Calculate  the  vapor  pressure  at  the  droplet  temperature . 
This  step  is  skipped  when  the  droplet  temperature  reaches  the 
boiling  temperature  or  the  critical  temperature  of  the  propellant. 

5.  Calculate  the  heat  and  the  mass  transfer  coefficients 

using  equations  13  and  14.  The  mass  transfer  coefficient  need  not 

be  calculated  when  the  droplet  temperature  reaches  the  boiling 
temperature  or  the  critical  temperature  of  the  propellant. 

6.  Calculate  the  mass  evaporation  rate  using  equation  (12) . 

If  the  droplet  is  at  the  boiling  temperature  or  the  critical 
temperature  of  the  propellant,  the  ihass  evaporation  rate  is 
calculated  by  solving  equation  (11)  with  the  droplet-heat-up  term 
being  zero.  Store  the  time  and  the  corresponding  mass  evaporation 

rate  of  the  droplet  in  an  array  for  use  at  a later  time  to 

calculate  the  total  evaporation  rate. 

7.  Calculate  the  droplet  drag  and  the  droplet  acceleration 
using  equations  (17)  and  (20) . Calculate  the  rate  of  change  of 
droplet  radius  using  equation  (22),  and  the  rate  of  change  of  the 
droplet  temperature  using  equation  (21) . The  rate  of  change  of  the 
droplet  temperature  is  set  to  zero  when  the  droplet  temperature 
reaches  the  boiling  temperature  or  the  critical  temperature  of  the 
propellant . 

8.  Calculate  the  droplet  radius,  velocity  and  temperature  at 
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the  next  time  step  using  the  Euler’s  explicit  integration 
illustrated  in  equation  (23) . 

9.  Time  is  incremented  and  steps  1 to  8 are  repeated  until 
more  than  99  percent  of  the  droplet  mass  has  been  evaporated. 

10.  Repeat  steps  1 to  9 for  each  of  the  droplets  injected 
from  the  same  radial  and  tangential  location  but  at  different  times 
during  a period  of  oscillation. 

11.  Calculate  the  total  evaporation  rate  of  the  entire 
droplet  array  from  the  evaporation  histories  of  each  of  the 
droplets  which  have  been  stored  in  step  6. 

12 . Calculate  the  in-phase  and  the  out-of-phase  response 
factors  using  equations  (25)  and  (26) . 

13.  Repeat  steps  1 to  12  to  obtain  the  response  factors  for 

droplets  injected  from  different  radial  and  circumferential 
locations. 

14.  Average  the  response  factors  calculated  in  step  13  in 
order  to  obtain  the  overall  response  factor. 

The  whole  procedure  is  then  repeated  to  calculate  the  overall 
response  factors  for  other  values  of  the  frequency. 
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III.  PROGRAM  DESCRIPTION 


The  Combustion  Response  Prediction  (CRP)  computer  code 
consists  of  a main  program,  four  subroutines  and  six  function 
subroutines.  The  main  program  and  the  subroutines  are  described  in 
the  next  section.  Program  input  and  output  are  described  in 
sections  3.2  and  3.3.  A listing  of  the  computer  code  is  provided 
in  appendix  A.  Input  and  output  for  a sample  case  are  provided  in 

appendix  B. 

3 . 1 Program  Description 

* Main  Program:  reads  all  input  to  the  code  which 

include  a problem-description  title,  chamber  acoustic 
resonance  modes,  frequency  range  of  interests, 
combustion  gas  properties,  and  droplet  initial 
properties.  It  calculates  the  vaporization  histories 
of  each  of  the  droplets  in  an  array  and  calls 
subroutine  OUTPUT,  if  the  input  variable  DEBUG  is  set 
to  TRUE,  to  print  out  the  vaporization  histories.  Each 
array  is  a set  of  several  droplets  injected  from  the 
same  radial  and  circumferential  injection  location  but 
at  different  times.  It  then  calls  subroutine  SUM  to 
compute  the  total  evaporation  rate  of  the  entire  array 
of  droplets.  Next,  it  calculates  the  response  factor 
of  the  droplets  in  the  array.  The  procedure  is  then 
repeated  to  calculate  the  response  factors  for  other 
arrays  of  droplets  injected  from  other  locations. 

Finally,  it  averages  the  response  factors  calculated  at 
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various  locations  to  obtain  the  overall  response  factor 
at  a particular  frequency.  This  whole  procedure  is 
then  repeated  for  a number  of  frequencies.  Loops  over 
all  droplets,  injection  locations,  and  frequencies  are 
made  in  the  main  program. 

* Subroutine  OUTPUT:  called  by  the  main  program  to  print 

intermediate  results,  e.g.,  time  step,  instantaneous 
radius,  evaporation  rate,  and  velocity  of  the  droplet. 
It  also  prints  out  other  information  for  debugging, 

e.g.,  Reynolds  number,  diffusion  coefficient,  vapor 
pressure. 

* subroutine  MATHUR:  calculates  the  parameter  used  in 

the  Mathur  and  Thodos'  correlation  to  calculate  the 

binary  diffusion  coefficient  as  a function  of  pressure 
and  temperature. 

* subroutine  REIDEL:  calculates  the  parameters  used  in 

the  Reidel's  correlation  to  calculate  the  vapor 
pressure  as  a function  of  temperature. 

* Subroutine  SUM:  calculates  the  total  evaporation  rate 

of  an  array  of  droplets  by  summing  the  individual 
evaporation  rates  of  each  of  the  droplets. 

* Function  FWDOT:  given  the  evaporation  history  of  a 

single  droplet,  the  function  calculates  the  evaporation 
rate  of  the  droplet  - or  of  other  droplets  injected  at 
a number  of  oscillation  periods  apart  - at  a specified 
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time. 


* Function  BJ:  compute  the  second  or  higher-order  Bessel 

function  of  the  first  kind. 

* Function  BJO:  compute  the  zeroth-order  Bessel  function 

of  the  first  kind. 

* Function  BJ1:  compute  the  first-order  Bessel  function 

of  the  first  kind. 

* Function  SL:  calculates  the  heat  of  vaporization  as  a 

function  of  temperature  using  Watson’s  correlation. 


* Function  PV:  calculates  the  vapor  pressure  as  a 

function  of  temperature  using  Reidel's  correlation. 

3.2  Input  Description 

All  input  with  the  exception  of  the  problem  description  title 
are  made  using  Fortran  namelists.  The  problem  description  title 
can  be  specified  using  any  number  of  lines  but  at  least  one  line 
must  be  used  although  it  can  be  a blank  line.  Following  the 
problem  description  are  the  namelists  INPUT,  WAVES,  CBGAS  and 
DROPS.  Variables  in  these  namelists  are  described  in  tables  3.1 
through  3.4.  Input  for  a sample  case  is  provided  in  appendix  B.l. 

Namelist  INPUT  is  used  to  input  artificial  parameters  such  as 
the  number  of  droplets  injected  per  cycle,  the  number  of  time  steps 
between  output,  and  the  number  of  time  steps  in  a droplet  life 
time, etc.  If  the  variable  DEBUG  is  set  to  TRUE,  the  vaporization 

histories  of  droplets  and  the  intermediate  results  are  written  to  a 
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Name 

| Type | Unit|  Description  and  Remarks 

DEBUG 

1 

L | 
1 
1 
| 

1 

| «TRUE,  Intermediate  results  are  output  to 
| a debug  file 

j =FALSE/  No  intermediate  ouput 

NDTFQ 

1 

I | 
1 

1 

| Number  of  time  steps  - in  one  period  of 
| oscillation. 

I 

NDTLF 

i 

I | 
1 

1 

| Number  of  time  steps  in  the  droplet  life 
| time 

JA 

1 

I I 
I 

1 

| Number  of  time  steps  between  print-outs  of 
| intermediate  results 

i 

NP 

I | 
1 

1 

| Number  of  droplets  injected  per  cycle 

NY 

1 

I | 

1 

1 

1 

| Number  of  integration  steps  used  in  the 
| calculations  of  the  response  factors 

NRAD 

\ 

I | 
1 

1 

| Number  of  radial  injection  locations 

NCIRC 

1 

I | 
1 
1 

1 

| Number  of  circumferential  injection 
| locations 
1 

Table  3.1:  Descriptions  of  Namelist  INPUT  Variables 


Name  |Type|  Unit|  Description  and  Remarks 


FREQ 

DFREQ 

NFREQ 

DPF 

PHIF 

MTANG 

NRADI 


R | cps 

I 

R | cps 

I 

I | 

I 

R I 


R 

I 

I 


deg 


First  frequency  value 
Frequency  increment 
Number  of  frequencies 

Maximum  pressure  amplitude  normalized 
by  the  mean  pressure 

Pressure  oscillation  phase  angle 

Tangential  resonance  mode  number 

Radial  resonance  mode  number 


Table  3.2:  Descriptions  of  Namelist  WAVES  Variables 
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|Type|  Unit  | Description  and  Remarks 


PO 

1 1 

1 R 1 
1 1 

psf 

1 

| Mean  chamber  pressure 

TFO 

1 1 

1 R 1 
1 | 

°R 

i 

| Mean  chamber  temperature 

GAMMA 

1 R 1 
I | 

1 

| Chamber  gas 

i 

specific  heat  ratio 

PCB 

1 R 1 
1 | 

psf 

1 

| Chamber  gas 
1 

critical  pressure 

TCB 

1 R 1 
I | 

°R 

i 

I Chamber  gas 

critical  temperature 

TBB 

1 R 1 
1 1 

°R 

1 

| Chamber  gas 

normal  boiling  point 

EMB 

1 R j lbm/lb-mole 
1 1 

I Chamber  gas 

molecular  weight 

PR 

1 R 1 
| | 

1 

I Chamber  gas 

Prandtl  number 

AKB 

1 R 1 
1 | 

Btu/ft-s-°R|  Chamber  gas 

thermal  conductivity 

VIS 

1 R 1 
| | 

lbm/ft-s 

I 

I Chamber  gas  viscosity 

VGAF 

1 R 1 
| | 

ft/s 

1 

I Chamber  gas 
1 

final  velocity 

Table  3.3:  Descriptions  of  Namelist  CBGAS  Variables 
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Name 

| Type | 

Unit 

1 

Description  and  Remarks 

SIT 

1 

1 

R 

1 

1 

ft 

1 

1 

t 

Initial  droplet  radius 

TO 

1 

1 

R 

1 

1 

° R 

1 

1 

1 

Initial  droplet  temperature 

RHOL 

1 

R 

1 

1 

lbm/ft**3 

1 

1 

| 

Propellant  liquid  density 

CPL 

1 

1 

R 

1 

1 

Btu/lbm-R 

1 

1 

Propellant  li<juid  specific  heat 

VDI 

1 

1 

R 

1 

1 

ft/s 

1 

1 

I 

Initial  droplet  velocity 

PCX 

1 

1 

R 

1 

1 

psf 

1 

I 

Propellant  critical  pressure 

TCA 

1 

1 

R 

1 

1 

°R 

1 

1 

1 

Propellant  critical  temperature 

TBA 

1 

1 

R 

1 

1 

0 R 

1 

1 

I 

Propellant  normal  boiling  point 

EMA 

1 

1 

R 

1 

1 

lbm/ lb-mole 

1 

1 

Propellant  molecular  weight 

SLA 

1 

| 

R 

1 

| 

Btu/lbm 

1 

1 

Propellant  heat  of  vaporization  at 

1 

1 

1 

1 

1 

1 

normal  boiling  point 

Table  3.4:  Descriptions  of  Namelist  DROPS  Variables 
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debug  file. 


The  variables  NDTFQ  and  NDTLF  are  used  to  calculate  the  time 
step  for  use  in  the  calculation  of  the  vaporization  histories  of 
the  droplets.  The  time  step  based  on  the  oscillation  period  is: 

2 tC 

A-t  = 

oo  * Nt>TF& 

where  is  the  angular  freqency  of  the  oscillation,  and  the  time 
step  based  on  the  droplet  life  time,  t14r  is: 

A-t  = ^21 

vi 

Mt>VUF 

The  time  step  used  in  the  calculations  of  the  vaporization 
histories  is  the  smaller  of  the  two  time  steps. 

The  variable  NY  is  the  number  of  integration  steps  used  in  the 
numerical  integration  of  equations  (25)  and  (26)  to  obtain  the 
in-phase  and  the  out-of-phase  response  factors.  For  cases  where 
the  temporal  variations  of  the  droplet  vaporization  rates  are 
steep,  a large  value  must  be  specified  for  NY  (finer  integration 
step  size)  to  avoid  losing  accuracy  in  the  results. 

The  overall  response  factor  is  the  average  of  the  response 
factors  calculated  at  various  radial  and  tangential  locations.  The 

number  of  the  locations  are  specified  by  the  variable  NRAD  and 
NCIRC. 

All  of  the  variables  described  above  are  artificial  parameters 

in  the  model.  The  higher  the  value  specified  for  these  parameters, 
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the  more  accurate  the  solutions  will  be  and,  of  course,  the  more 
computer  time  is  required.  Recommended  values  for  the  variables 
are  given  in  table  4.1  of  section  4.2. 

Namelist  WAVES  is  used  to  input  the  chamber  acoustic  resonance 
modes,  frequency  range  of  interests,  the  maximum  amplitude  and  the 
phase  angle  of  the  pressure  oscillations.  The  variables  FREQ, 

DFREQ,  and  NFREQ  specify  the  frequency  calculation  domain.  The 
amplitudes  of  the  pressure  oscillations  vary  spatially,  the 
variables  DPF  is  the  maximum  amplitude,  £-p,  used  in  equations  (1) 
and  (4) . 

Namelist  CBGAS  is  used  to  input  the  combustion  gas  properties, 
for  example,  mean  pressure  and  temperature,  critical  pressure  and 
temperature,  molecular  weight,  Prandtl  number,  etc.  In  general, 
the  combustion  gas  is  the  mixture  of  several  gas  components. 
Therefore,  the  pseudo  values  of  the  critical  pressure,  temperature 
and  molecular  weight  of  the  mixture  must  be  calculated.  These 
values  can  be  calculated  from  the  compositions  of  the  mixture  and 
the  properties  of  the  species  components  that  constitute  the 
mixture.  The  compositions,  the  thermodynamic  properties  and  the 
transport  properties  can  be  calculated  using  the  standard  TRAN72 
computer  program  (Ref.  12) 

Namelist  DROPS  is  used  to  input  droplet  properties  such  as  its 
initial  radius,  velocity,  and  temperature.  The  namelist  is  also 
used  to  input  thermodynamic  properties  of  the  propellant.  These 
properties  can  be  obtained  from  the  Aerojet  Handbook  of  Properties 
and  Performance  of  Liquid  Rocket  Propellant  (Ref.  5) 
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3.3  Output  Description 


Output  from  the  code  begin^with  the  echo  of  input  data  which 
include  the  problem-description  titl4,  and  the  values  of  the 
namelists'  variables.  Although  the  problem  description  can  be 
inpuc  using  any  number  of  lines,  only  the  first  line  is  output. 
Next,  the  descriptions  and  the  values  of  selected  input  variables 
are  output.  Following  the  echo  of  the  input  data  is  the  estimated 
droplet  life  time.  The  last  section  of  the  output  is  the 
calculated  stability  results  which  include  the  real  part  (in-phase) 
and  the  imaginary  part  (out-of-phase)  of  the  response  factor.  The 
results  are  also  output  in  the  polar  form  (magnitude  and  phase 
angle) . These  results  are  output  for  each  of  the  frequencies  whose 
range  is  specified  in  the  namelist  WAVES.  A sample  output  file  is 
provided  in  appendix  B.2. 

Three  additional  files  are  also  generated  to  be  input  to 
TELLEGRAF,  a computer  graphic  program  available  at  ATC,  for 
plotting  the  calculated  results.  The  first  file  contains  the  data 
used  for  plotting  the  real  and  the  imaginary  parts  of  the  response 
factor  versus  the  frequency.  The  second  and  the  third  files 
contain  the  data  used  for  plotting  the  magnitude  and  the  phase 
angle  of  the  response  factor,  respectively,  versus  the  frequency. 
Using  the  VAX  conventions  for  file  identifications,  the  file  names 
of  the  three  files  are  the  same  as  that  of  the  input  file.  The 
file  types  of  the  three  files  are  RIM,  MAG,  and  PHA,  respectively. 

In  addition  to  the  files  described  above,  a debug  file  is  also 
generated  if  the  variable  DEBUG  in  the  namelist  INPUT  is  set  to 
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TRUE. 


This  file  contains  intermediate  results  that  are  useful  for 
debugging  purposes.  Quantities  written  to  this  file  begin  with  the 
values  of  the  parameters  used  in  the  vapor-pressure  correlation. 
Next,  the  vaporization  history  of  the  first  droplet  a^  output. 

The  vaporization  history  information  includeSthe  following 
quantities  as  functions  of  time:  the  droplet  radius  and  its  time 

rate  of  change,  the  droplet  temperature,  the  vapor  pressure,  the 
mass  evaporation  rate,  and  the  absolute  and  the  relative  velocities 
of  the  droplet.  Other  quantities  output  along  with  the  droplet 
vaporization  history  include  the  instantaneous  gas  pressure  and 
temperature,  the  diffusion  coefficient,  the  Reynolds  number,  and 
the  heat  transfer  coefficient.  In  addition,  at  each  of  the 
specified  frequency  the  response  factors  calculated  at  various 
radial  and  ciurcumferential  injection  locations  are  output.  The 
file  name  of  this  debug  file  is  the  same  as  that  of  the  input  file 
the  file  type  of  the  debug  file  is  DBG. 
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IV.  RESULTS  AND  DISCUSSION. 


Calculations  of  the  response  factors  were  made  for  the  case  of 
n-heptane  droplets  vaporizing  in  combustion  gases  composed  of  the 
products  of  the  stoichiometric  reaction  with  oxygen.  The  results 
are  discussed  in  section  4.3. 

Before  the  calculations  were  made  for  the  above  case,  several 
tests  were  performed  to  study  the  effects  of  the  "artificial" 
parameters,  e.g.  time  steps,  number  of  droplets  injected  per 

cycle,  on  the  solutions.  The  test  results  are  discussed  in  section 
4.2. 


In  addition,  the  model  was  used  to  calculate  the  evaporation 
history  of  Chinese  Kerosene  (RP2 ) and  n-heptane  droplets  vaporizing 
in  steady  environments  (no  oscillations  in  pressure  and  velocity) 
for  which  experimental  data  are  available.  This  provides,  to  some 
degree,  the  verifications  of  the  single-droplet-vaporization  model 
used  in  the  present  study.  The  following  section  discusses  the 
calculated  results  and  the  comparisons  of  the  results  with  the 
data. 


4.1  Calculations  of  Droplets  Vaporizing  in  Steady  Ambient 
Gases . 

4.1.1  Chinese  Kerosene  (RP2 ) Droplet  Vaporizing  in  Airstream. 

The  model  was  used  to  calculate  the  evaporation  history  of  a 

Chinese-Kerosene  (RP2)  droplet  vaporizing  in  a steady  hot 

crossflowing  air  stream,  for  which  experimental  data  are  available 

(Ref.  8).  In  the  experiment,  the  initial  diameter  and  temperature 
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of  the  droplet  are  1.15  mm  and  294* K.  The  temperature  and  the 
velocity  of  the  air  stream  are  516  K and  4.85  m/s.  The  experiment 
was  conducted  at  atmospheric  pressure.  Three  sets  of  calculations 
were  made  using  three  different  assumptions  on  the  droplet  thermal 
conductivity  - finite  thermal  conductivity  with  spherically 
symmetric  temperature  distribution  inside  the  droplet,  zero  thermal 
conductivity  (onion  skin) , and  uniform  droplet  temperature 
(infinite  thermal  conductivity  or  strong  circulating  flows  inside 
the  droplet) . Figure  4 . 1 shows  the  calculated  -temporal  variations 
of  the  droplet  diameter  and  the  experimental  data.  It  can  be  seen 
that  only  the  prediction  using  uniform-droplet-temperature 
assumption  agrees  well  with  the  data.  Based  on  these  comparisons 
and  the  other  justifications  discussed  in  section  2.2.1,  the 
uniform— temperature-assumption  was  selected  for  use  in  the  present 
study . 

4.1.2  n-Heptane  Droplet  Vaporizing  in  Quiescent  Nitrogen  Gas. 

The  uniform-droplet-temperature  model  is  then  used  to 
calculate  the  evaporation  histories  of  n-heptane  droplets 
vaporizing  in  hot  quiescent  nitrogen  gas  at  1 atmosphere  and  at  50 
atmospheres.  In  both  cases,  the  initial  droplet  diameter  and 
temperature  are  0.0354  in.  and  527  R.  The  ambient  nitrogen 
temperature  is  1031°R.  Following  Baer's  practice  (Ref.  9) , 
natural  convection  effects  are  accounted  for  in  the  present 
calculation  by  replacing  the  Reynolds  number  in  the  heat  and  the 
mass  transfer  correlations  with  the  square  root  of  the  Grashof 
number.  Figures  4.2  and  4.3  show  the  comparisons  between  the 
calculated  results  and  the  data  taken  from  reference  9 for  both 
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igure  4.2  : n-Heptane  Droplet  Vaporizing  in  Nitrogen  Gas  at  1 atm. 
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cases.  The  data  were  originally  reported  in  reference  10.  In  the 
figures,  the  square  of  the  normalized  (by  the  initial  diameter) 
droplet  diameter  is  plotted  versus  time.  It  can  be  seen  from  the 
figure  that  the  rate  of  change  of  the  droplet  diameter  is 
overpredicted  for  the  lower  pressure  case  while  it  is 
underpredicted  for  the  higher  pressure  case.  Nevertheless,  the 
agreements  between  the  calculated  results  and  the  data  are  good. 

The  calculated  droplet  temperatures  for  the  two  cases  are  shown  as 
functions  of  time  in  figure  4.4.  The  measured  wet-bulb 
temperatures  are  also  shown  in  the  figure.  Comparisons  between  the 
calculated  results  and  the  data  show  that  the  wet-bulb  temperature 
is  underpredicted  in  the  low-pressure  case,  and  it  is  well 
predicted  for  the  high-pressure  case. 

4.2  Parametric  Test  Results 

A limited  number  of  parametric  tests  were  performed  to  study 
the  sensitivity  of  the  solutions  to  the  artificial  parameters  which 
have  been  introduced  into  the  model.  The  tests  were  made  also,  to 
obtain  guidelines  on  what  values  should  be  specified  for  the 
parameters.  While  no  attempts  are  made  to  describe  the  test 
results  in  detail,  they  are  briefly  discussed  in  this  section. 

Test  results  show  that  the  solutions  converge  as  the  time  step 
decreases.  The  test  results  also  show  that  the  solutions  converge 
as  the  number  of  droplets  injected  per  cycle,  the  number  of  radial 
injection  locations,  the  number  of  circumferential  injection 
locations,  and  the  number  of  integration  steps  used  in  the 
calculation  of  the  response  factor  increase. 
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As  a result  of  the  parametric  tests,  the  values  listed  in 
table  4.1  are  recommended  for  the  artificial  parameters  in  order  to 
obtain  reasonable  accuracy  in  the  solutions  without  substantial  CPU 
time  requirements.  A typical  computer  run  using  the  values 
recommended  in  table  4.1  requires  approximately  2 CPU  minutes  for 
each  frequency  on  the  VAX  computer  system  at  ATC.  The  total 
computer  time  requirement  is  approximately  linearly  proportional  to 
the  number  of  frequencies,  NFREQ . It  should  be  noted  from  the 
table  that  while  the  recommended  value  for  the  number  of  radial 
injection  locations,  NRAD,  increases  with  the  specified  radial 
resonance  mode,  the  recommended  value  for  the  number  of  tangential 
injection  locations,  NCIRC  does  not  vary  with  the  specified 
tangential  mode.  The  reasons  are  that  the  response  factors,  at  a 
given  radial  coordinate,  do  not  vary  with  the  tangential  locations 
for  the  spinning  waves;  and  that  the  symmetry  of  the  standing  waves 

have  been  accounted  for. 

4.3  n-Heptane  Droplet  Response  Factor 

The  computer  code  CRP,  was  used  to  calculate  the  combustion 

response  factor  of  n-Heptane  droplets  vaporizing  in  the  combustion 

gases  composed  of  the  products  of  the  stoichiometric  reaction  of 

n-Heptane  with  Oxygen.  The  mean  chamber  pressure  is  300  psia  and 

the  mean  chamber  temperature  is  6280°R.  The  acoustic  mode  in  the 

chamber  is  the  first  tangential  (IT)  standing  mode  with  the  maximum 

amplitude  of  the  pressure  oscillation  normalized  by  the  mean 

pressure^  10  percent.  The  initial  radius,  temperature,  and 

velocity  of  the  droplet  are  50  microns,  535°R  and  50  ft/s, 

respectively.  The  number  of  droplets  injected  per  cycle  used  in 
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Table  4. 


NDTFQ 

- 

16 

NDTLF 

B 

1000 

JA 

» 

100 

NP 

- 

16 

NY 

3200 

NRAD 

3* (NRADI+1) 

NCIRC 

3 

1:  Recommended  Values  for  the  Artificial  Parameters 
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this  calculation  is  16. 


Figures  4.5,  4.6,  and  4.7  show  the  temporal  variations  of  the 
temperature,  the  radius,  and  the  vaporization  rate,  respectively, 
of  an  n-Heptane  droplet  injected  at  the  normalized  radial  distance 
of  .707  and  the  tangential  location  is  at  the  pressure  antinode. 

The  discontinuities  in  these  curves  are  the  results  of  the 
switching  to  a different  procedure  to  calculate  the  vaporization 
rate  when  the  droplet  temperature  reaches  the  boiling  temperature 
of  the  propellant.  In  all  of  the  figures,  time  equals  to  0.0  is 
the  instant  the  droplet  is  injected  into  the  chamber,  and  for  this 
particular  droplet  it  is  injected  at  the  beginning  of  the 
oscillation  period.  The  frequency  of  the  acoustic  fields  in  the 
chamber  is  2000  Hertzs. 

Figure  4.5  shows  that  the  droplet  temperature  reaches  the 
boiling  temperature  of  the  propellant  at  approximately  62 
micro-seconds . Figure  4.6  shows  that  the  droplet  completely 
vaporizes  at  approximately  82  micro-seconds.  It  can  be  seen  from 
figure  4.7  that  initially,  the  evaporation  rate  of  the  droplet  is 
relative  small.  The  rate  slowly  increases  for  approximately  62 
micro-seconds.  At  this  time  the  temperature  of  the  droplet  reaches 
the  boiling  point  of  the  propellant,  the  vaporization  rate  rises 
sharply  to  a maximum  then  it  decreases  as  the  surface  area  of  the 
droplet  reduces.  A small  variation  at  the  peak  of  the  vaporization 
rate  is  the  result  of  the  oscillations  in  the  chamber  gas 
properties . 

Figure  4.8  shows  the  total  evaporation  rate  of  an  array  of 
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Droplet  Radius. 


droplets.  This  plot  is  generated  from  a different  computer  run  in 
which  the  number  of  droplets  injected  per  cycle  was  increased  to  80 
so  that  the  induced  perturbation  of  the  vaporization  rate  is  more 
pronounced.  The  sharp  spikes  in  the 'total  vaporization  curve  are 
the  results  of  the  use  of  a finite  number  of  droplets  to  represent 
the  continuous  injection  of  the  propellant.  The  absolute 
amplitudes  of  the  spikes  are  independent  of  the  number  of  droplets 
injected  per  cycle.  The  mean  burning  rate  is,  however, 
approximately  proportional  to  the  number  of  droplets  injected  per 
cycle.  Thus,  as  the  number  of  droplets  injected  per  cycle  is 
increased,  the  spike  amplitudes  become  smaller  relative  to  the 
mean  of  the  buring  rate. 

Finally,  the  calculated  combustion  response  factors  are  shown 
m Figures  4.9,  4.10,  and  4.11.  Figure  4.9  is  a plot  of  the  real 
and  the  imaginary  parts  of  the  combustion  response  factor  as 
functions  of  the  frequency.  Figures  4.10  and  4.11  show  the 
combustion  response  factor  in  a different  form.  In  these  figures, 
the  magnitude  and  the  phase  angle  of  the  combustion  response  factor 
are  plotted  versus  the  frequency. 

In  the  past,  the  combustion  response  is  assumed  to  be 
characterized  by  a pressure  interaction  index,  n and  a sensitive 
time-lag,  'tf  . The  values  of  n and -t  are  determined  empirically. 

The  combustion  response  factor,  Yk  is  related  to  the  pressure 
interaction  index  and  the  sensitive  time  lag  in  reference  13  as 
follows : 
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The  above  equation  shows  that  the  real  part  of  the  response 
factor  is  a function  of  the  angular  frequency.  The  function  has  a 
peak  value  of  2n  at  the  angular  frequency  equal  to  3E.  Thus  the 
values  of  n and  'C  can  be  obtained  from  the  correlation  with  the 
plot  of  the  combustion  response  factor  versus  the  frequency.  For 
example,  in  figure  4.9  the  real  part  of  the  response  factor  has  a 
peak  value  of  0.4  at  4000  Hertz,  the  corresponding  values  of  n and 
V for  this  case  are  0.2  and  0.125  milli-seconds,  respectively. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 

A model  has  been  formulated  and  a computer  code,  CRP  has  been 
developed  to  calculate  the  combustion  response  factors.  Several 
statements  can  be  made  with  regards  to  the  calculated  results: 

1.  Three  different  assumptions  about  the  thermal 
conductivity  of  the  droplet  - zero  thermal 
conductivity,  finite  thermal  conductivity  with 
spherically  symmetric  temperature  distribution  inside 
the  droplet,  and  uniform  droplet  temperature  (infinite 
thermal  conductivity  or  strong  recirculating  flows 
inside  the  droplet)  - have  been  tested.  The  latter 
assumption  appears  to  be  superior  because  calculations 
of  the  vaporization  rates  of  droplets  vaporizing  in 
steady  environments  using  the  assumption  agree  well 
with  the  experimental  data.  Futhermore,  the  analysis 
using  the  uniform-droplet-temperature  assumption  is 
simple  and  requires  less  computer  time. 

2.  Time-history  calculations  of  n-Heptane  droplets 
vaporizing  in  Nitrogen  gas  and  of  Chinese  Kerosene 
(RP2)  droplets  vaporizing  in  air  agree  well  with  the 
experimental  results. 

3.  Calculations  of  a 100-micron  n-Heptane  droplet 
vaporizing  in  combustion  gases  composed  of  the  products 
of  the  stoichiometric  reaction  with  oxygen  at  300  psia 
show  that  the  life  time  of  the  droplet  is  approximately 
83  micro-seconds.  The  droplet  temperature  reaches  the 
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boiling  point  of  the  propellant  at  approximately  62 
micro-seconds.  Only  6 percent  of  the  droplet  mass  has 
vaporized  up  to  this  point,  thus  most  of  the 
vaporization  takes  place  at  the  boiling  temperature  of 
the  propellant  and  near  the  end  of  the  droplet  life 
time.  These  results  are  calculated  for  the  case  where 

the  frequency  of  the  acoustic  oscillations  is  2000 
Hertzs. 

4.  A technique  was  devised  to  calculate  the  vaporization 
rate  when  the  droplet  temperature  reaches  the  boiling 
point  of  the  propellant.  The  technique  eliminates  the 
numerical  problem  (vaporization  rate  blows  up 
logarithmically)  that  is  inherent  in  many  of  the 
droplet  vaporization  studies  in  the  past.  Calculations 
of  droplet  vaporization  historie)s  using  the  technique 
appear  to  be  qualitatively  correct.  The  technique  is 
extended  to  the  cases  where  the  droplet  temperature 
reaches  the  critical  temperature  of  the  propellant. 

Thus,  the  model  can  be  used  for  both  sub-critical  and 
super-critical  chamber  pressures. 

In  addition,  the  following  recommendations  are  made  with 

regards  to  the  future  work  to  improve  the  model  and/or  the  computer 

code : 


1-  The  mean  axial  velocity  is  currently  calculated  using 
equation  10. b which  is  not  very  realistic  since  it  does 
not  account  for  the  spatial  distribution  of  the  mixture 
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ratio.  The  computer  code  should  be  modified  so  that 
the  axial  profile  of  the  mean  velocity  can  be  specified 
as  input  if  it  is  available  apriori,  for  example,  from 
the  steady-state  performance  analysis. 

2.  Modifications  to  the  computer  code  to  account  for  the 
dependences  of  the  propellant  density  and  the 
combustion  gas  viscosity  on  the  temperature  are 
recommended.  Currently,  only  the  dependences  of  the 
vapor  pressure,  heat  of  evaporation,  and  the  diffusion 
coefficient  on  the  temperature  are  accounted  for. 

3.  A typical  run  using  the  table  4.1  - recommended  values 
of  the  artificial  parameters  for  a IT  mode  requires 
approximately  2 CPU  minutes  for  each  frequency  on  the 
VAX  computer  system  at  ATC.  Conversion  of  the  computer 
code  for  use  on  the  PC  computer  systems  is  possible 
because  the  memory  storage  required  by  the  code  is 
relative  small.  This  is  highly  recommended  because 
there  are  no  charges  for  using  the  PC's.  Conversion  of 
the  code  for  use  on  the  CRAY-XMP  at  the  San  Diego 
Supercomputer  Center,  to  which  Aerojet  has  the  acces  , 
is  also  recommended  since  it  is  expected  that  the 
computer  run  time  and  the  cost  will  be  significantly 

lower. 
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NONLINEAR  INJECTION  ELEMENT 

THEORY 
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DOME  MODEL 


There  are  three  options  for  the  model  used  in  the  dome  included  in  the  subrou- 
tine. These  options  are: 

1.  Lumped  Parameter  ( Domlnd  = 1 ) 

2.  Longitudinal  Acoustic  Wave  ( Domlnd  = 2 ) 

3.  3 D Acoustic  Wave  ( Domlnd  = 3 ) 

The  lumped  parameter  model  assumes  there  are  no  spatial  derivatives  in  pressure 
or  velocity. 


P — Pjsin  u)t 

(1) 

II 

(2) 

w = a-Z°£.Voi 
dt  dP 

(3) 

dp  g 
dP  ~ a1 

(4) 

1 
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where  A 


area  of  tube 
a the  speed  of  sound 

g gravitational  acceleration 

Pd  magnitude  of  pressure  oscillation 

V t velocity  in  the  tube 

V ol  volume  of  manifold  per  element 

W flowrate  per  element 

Therefore 


gu)  V ol 
Aa 2 


PdCOS  U)t 


(5) 


Note:  To  obtain  constant  pressure  in  the  dome  set  nVol”  very  large.  For  no 
velocity  oscillations  at  the  entrance  to  the  tubes,  set  ”Voln  very  small  (.00001). 

For  options  2 and  3,  the  manifold  was  modelled  using  the  theory  of  Maslen  and 
Moore  for  oscillations  in  a fluid  with  finite  Mach  number  flow.  Only  the  linear  terms 
(small  amplitudes)  are  included  which  reduces  to  the  following  wave  equation: 


-4’’u  + V'<y  = M'?X+2M^ 


dx2 


dx 


(6) 


where  V 
M 
t 
u 
x 


gradient 
mach  number 
time  derivative 
velocity  vector 
axial  derivative 


The  wave  is 
coordinates,  or 


assumed  to  be  periodic  in  time  and  separable  in  the  x,  r,  and  9 


4>'  = Jn(mr)einee,ut  (e‘lfll  + Ce,xBi) 
For  no  steady  state  axial  velocity  in  the  dome 


P'  = 


4>\ 


(7) 


(8) 
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(9) 


V = -V4>' 

u; 

where  Bi,B2  complex  coefficients 
i unit  complex 

Bessel  Function  of  order  n 
argument  of  Bessel  function 
number  of  pressure  nodes  in  0 direction 
radial  direction 
time 

axial  direction 
tangential  direction 


Jn 

m 

n 

r 

i 

x 

9 


Assuming  no  steady  state  velocity  in  the  dome  (v  - 0 ) 


Bi  = -B2  = 


/ w2  m2\ 
\ a2  rj2 ) 


1/2 


(10) 


and 


C = 1 


where  rd  is  the  radius  of  the  dome.  At  the  entrance  to  the  tubes  x 
effective  length  of  the  dome) 


(ID 

L (the 


dx 


dV' 

dx 


-ipa2  ^ 

9 

'UBX  + f.-iLBi'j 

(12) 

— Bi 

9 

(eiLBl  - e-'LB>) 

(13) 

—Bi 

(jJ 

[e'LBl  - e-Lflj) 

(14) 

-—Bi 

2 _ e-XB>) 

(15) 
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INJECTION  ELEMENT  MODEL 


With  the  time  dependence  of  pressure, density, and  velocity  specified  at  two  cells 
at  the  inlet  to  the  element  (obtained  from  the  solution  for  the  dome  above), the 
time  dependence  for  the  next  cell  can  be  calculated  using  the  equations  below. 
This  process  can  be  repeated  to  march  down  the  injection  element.  The  dome 
and  element  calculations  are  repeated  with  a new  guess  for  the  amplitude  of  the 
oscillation  in  the  dome  until  the  oscillation  amplitude  at  the  exit  of  the  element 
agrees  with  the  chamber  oscillation  amplitude  or  cavitation  occurs.  If  a calculated 
pressure  is  below  the  saturated  vapor  pressure  (or  below  1 psia  for  a gas)  or  exceeds 
the  sonic  velocity  , the  calculation  procedure  to  match  exit  pressure  is  terminated. 
The  calculation  proceeds  to  match  the  lowest  pressure  to  the  saturation  pressure  and 
a diagnostic  message  is  printed.  The  response  values  are  adjusted  to  the  required 
chamber  pressure  oscillations  via 


/ D \ 1/2 

RE  = REC  f (16) 

where  P cc^  calculated  injector  face  pressure  amplitude 
P ch  chamber  pressure  amplitude 

REC  calculated  response 

a somewhat  arbitrary  rule. 


Continuity 


dp  dv  dp 

di  +pdi  + Vdi 


= 0 


(17) 


Momentum 


dv  dv  dv  uv 


(18) 


State 


= i_ 

dp  a 2 


(19) 
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or 


- = — = — Dencon 
P o?  p0 


From  continuity 


Vn+l  - 

Sx 


dv 

dx 


(esvdp  i 

(,  p.  ax  Z_  at )_ 

P 


and  from  the  equation  of  state 


(P  ~ p0)  PoDencon 

P = Po  + 


(20) 


(21) 


(22) 


Substituting  into  Eq.  17 


o ( n 4- 

Pn+1  - Pn  _ dp  _ vjn  R1)  (23) 

Sx  dx  p«a»P«ncgn  _ 

where  Dencon  slope  of  the  density/pressure  relationship 
p0  the  reference  pressure 

R the  radius  of  the  tube 

p0  the  reference  density 

At  the  orifice  inlet,  the  flow  variables  for  a fictitious  cell  are  calculated  in  the 
orifice  using  the  area  relationship  between  the  orifice  and  the  tube.  This  fictitious 
cell  and  the  previous  cell  in  the  tube  are  used  to  obtain  the  new  conditions  for 
calculations  in  the  orifice  via  the  continuity  and  Bernoulli  equations.  The  same 
procedure  is  used  at  the  orifice  exit. 

At  the  overlap  points 


Wn+2  = Wn 


(24) 


VnPn^rx 

t>n  + 2 = Z 

Prt+2  J^n+2 


5 


(25) 


J-180 


For  pressure  use  Bernoulli’s  equation 


6p  = 1/2  pv7 


(26) 


v = C D 


(27) 


At  the  upstream  edge  of  the  orifice 


&P  = Pn  - Pn+2  = l/2p(CZ>it;OT/)2  (28) 


At  the  downstream  edge  of  the  orifice 


h = Pn+2  ~ Pn  = 1/2 p{CD2V„f)2  (29) 


where  CD\ 
CD2 

Vorf 


upstream  discharge  coefficient 
downstream  discharge  coefficient 
velocity  in  the  orifice 


If  the  velocity  exceeds  the  speed  of  sound,  then  the  velocity  at  that  location  is 
set  equal  to  the  speed  of  sound  with  the  same  direction.  Momentum  is  ignored  and 
continuity  is  used  to  obtain  pressure  via  p 


dp 

dx 


(30) 
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Lumped  Parameter  Injection  Response  Model  (INJ) 
Jeffrey  Muss 


The  lumped  parameter  injection  responses  model,  INJ,  is  similar  to  the  model  described  m 
NASA  SP-194  (Ref.  1).  The  model  has  been  limited  to  consider  only  the  effects  of  the  injection 
element  and  the  propellant  manifold,  thereby  ignoring  all  upstream  effects.  The  major  deviation 
from  the  SP-194  model  is  the  extension  of  the  model  to  account  for  element  mixed  patterns.  This 
required  the  timelag  and  inertance  of  each  element  to  be  accounted  for.  This  was  achieved  by 
mass  weighting  the  individual  contribution  of  each  element.  Slightly  different  variable 
normilization  were  applied,  for  computational  efficiency  reasons,  and  this  results  in  different 
forms  of  the  characteristic  variables,  i.e.,  inertance,  capacitance  and  resistance.  Expansion  of 
these  parameters  will  yield  the  traditional  definitions. 

The  injector’s  resistance  (R)  and  capacitance  (C),  and  the  element's  inertance  (L)  are 
defined  as: 


R = DPj/(n*Pc) 


Pc  * Vol  * Gc 

C = j 

A2  * Wtol 


_ ^ orif  * Wprif  (3) 

Aorif*  Gc  *'TB 

where  Vol  is  the  manifold  volume,  in  ft3,  Aorif,  lonf,  and  Worlf  are  the  cross-sectional  area,  in  ft*, 
length,  in  ft,  and  flowrate,  in  Lbnt/s,  of  an  orifice  in  an  element,  respectively,  Gc  is  the 
gravitational  constant,  A is  the  speed  of  sound  in  the  propellant,  in  ft/s,  W101  is  the  total 
propellant  flow,  in  Lbm/s,  and  DPj  and  Pc  are  in  psf.  L and  C are  in  seconds,  while  R is 
nondimensional.  The  term  V in  the  calculation  of  the  resistance  is  the  exponent  in  the  equation, 

W = k * DPjn 

where  W is  mass  flowrate  and  k is  a proportionality  constant.  It  should  be  noted  that  n=0.5  for 
liquid  propellants,  while  is  must  be  evaluated  numerically  for  gaseous  propellants. 
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The  overall  mass-weighted  injection  admittance  (Yj)  is  expressed  as: 


Yj(f)  = 


1+MR 


n=l,NFE 


FMFn  * EXP  (i*w*Taun) 
Rr  + Lf,n  + (i*w*Cf-i) 


+ 


-MR  „ 
1+MR 


m=l,NXE 


XMFm  * EXP  (i*w*Taum) 
Rx  + Lx.m  + G*w*Cx-i) 


(5) 


where  f is  the  frequency,  in  hz,  EXP(x)-ex,  MR  is  the  oxidizer-to-fuel  mixture  ratio,  Tau  is  the 
total  timelag,  in  sec.,  i is  the  square  root  of  -1,  w is  the  angular  frequency  2*Pi*f,  NXE  and  NFE 
refer  to  the  total  number  of  oxidizer  and  fuel  element  types,  respectively,  the  subscripts  “x”  and 
f refer  to  oxidizer  and  fuel,  respectively,  and  FMF  and  XMF  are  the  fraction  of  the  total  fuel 
and  oxidizer  mass  contained  in  that  element  type,  respectively. 
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INTRODUCTION 

The  Performance/Life  Combustion  Model  (PLC)  was  developed  to  evaluate  the 
energy  release  efficiency  (ERE)  and  the  spacial  combustion  chamber  wall  mixture 
ratio  distribution  within  the  Space  Shuttle  Main  Engine  (SSME)  for  the  Main 
Chamber  Combustion  and  Cooling  Technology  Study.  The  output  from  the  PLC 
model  is  to  be  used  in  conjunction  with  thermal,  structural  and  performance 
models  to  assess  overall  thrust  chamber  performance  and  combustion  chamber 
life. 


While  the  model  is  not  a rigorous  CFD  type  of  model,  it  does  account  for 
many  of  the  influences  in  the  same  way  a rigorous  model  would.  PLC  was  devel- 
oped to  mechanistically  account  for  changes  in  injector  and  chamber  design 
parameters  and  variable  operating  conditions  without  reliance  upon  empirical  user 
input  scaling  factors.  The  input  is  concise,  requiring  a minimum  of  propellant 
property  information.  The  input,  described  in  full  in  Appendix  I,  consists  of 
propellant  injection  conditions,  chamber  wall  contour  information,  injector  pattern 
layout,  element  flowrates,  and  basic  injector  element  design  configuration.  It 
can  be  used  to  evaluate  any  gaseous  fuel-liquid  oxidizer  propellant  combination 
for  several  types  of  "coaxial"  injectors. 


KEYWORDS:  SSME  (16),  TCA  (66),  Performance  (101),  Comoatibility  (109),  LOX/HC  (153), 
Computer  Program  - New  Development  (210),  1986  (271),  Muss  (362) 
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MODELLING  ASSUMPTIONS 


The  inherent  strength  or  weakness  of  any  model  is  the  validity  of  the 
assumptions  used  in  the  model.  This  section  outlines  the  major  assumptions 
incorporated  in  PLC. 

The  chamber  flow  dynamics  are  modelled  assuming  that  the  flow  in  the 
near-face  region  is  in  discrete  streamtubes.  while  flow  in  the  remainder  of  the 
chamber  is  modelled  as  finite  elements  or  "cells".  The  vapor  contained  within 
any  given  cell  is  assumed  to  be  well  mixed,  and  the  cell  possesses  the  physical 
properties  characterized  by  the  axial  pressure  and  the  cell's  vaporized  mixture 
ratio.  These  cells  are  set  up  by  GRIDGEN  so  that  all  cells  are  of  equal  area. 
The  number  of  cells  is  determined  by  the  number  of  slices,  NSLICE,  and  the 
number  of  radial  segments,  NSEO,  specified  in  the  input,  and  is  equal  to 
NSLICE*NSEG.  The  number  of  cells  is  constant  at  any  cross-section,  but  the  cell 
area  is  a function  of  axial  location.  Figure  1 shows  the  grid  for  a chamber 
with  12  slices  and  4 segments.  Flow  calculations  are  also  based  on  the 
assumption  of  choked  flow  at  the  throat,  but  the  assumption's  validity  is  never 
checked  by  the  program.  Other  key  assumptions  are  that  the  volume  occupied  by 
the  droplets  is  negligible,  so  that  the  vapor  is  assumed  to  occupy  the  entire 
local  cross-section,  and  that  the  droplets  apply  no  drag  forces  to  the  gases 
that  are  accelerating  them. 

The  pressure  is  assumed  to  be  constant  and  equal  to  the  nominal 
chamber  presure  throughout  the  cylindrical  portion  of  the  chamber.  It  is  also 
assumed  that  the  gas  phase  properties  can  be  adequately  estimated  as  a function 
of  the  local  vapor  mixture  ratio  and  pressure  with  TDK  generated  one-dimensional 

shifting  equilibrium  values.  . .. 

Droplets  are  assumed  to  move  as  a uniformly  distributed  ring  surrounding 
the  axis  of  the  injection  element  they  emanated  from.  The  distance  from  the 
element  axis  (or  the  apparent  element  axis)  is  measured  as  a radius,  R,  and 
vapor  generated  by  vaporizing  droplets  is  distributed  uniformly  around  the 
injector  axis  at  this  radius  R.  The  radius  R is  changed  as  the  droplets 
experience  aerodynamic  drag  from  the  gases. 


PROGRAM  LOGIC 

This  section  describes  the  flow  of  information  within  PLC  while  the 
subroutine  details  are  reserved  for  the  following  section.  PLC  models  the 
atomization  of  the  oxidizer*  streamtube  expansion  of  the  injected  gas/liquid 
mixture  in  the  near-face  region*  vapor  mixing  in  the  cylindrical  chamber 
section*  droplet  trajectories  and  secondary  droplet  shattering  due  to  wall 
impingement*  and  2-D  isentropic  flow  acceleration  in  the  convergent  nozzle 

section.  . . . , . 

A cylindrical  coordinate  system  is  employed  to  describe  position*  with  the 

axial  position  defining  the  local  wall  radius.  All  internal  calculations  are 
conducted  in  fundamental  English  units*  i.e.  LBm-Ft-Sec.  Information  is 
transferred  between  subroutines  by  means  of  labelled  commons  which  are  sized  at 
runtime  based  upon  the  problem  inputs.  Program  output  is  directed  to  two  files* 
•*PL.  HISTORY"  which  contains  echoed  input  data*  ERE  predictions  and  other  run 
information,  and  "MR.  DIST"  which  contains  the  vapor  mixture  ratio  as  a function 
of  axial*  radial  and  circumferential  position. 

PLC  is  structured  with  a main  calling  program  and  a series  of  subroutines 
The  main  program  is  used  only  to  sequence  the  processing  of  information*  check 
for  error  conditions*  and  monitor  axial  position.  A graphical  representation  of 
this  flow  diagram  is  presented  in  Figure  2.  The  first  subroutine  called  is 
SETUP  SETUP  reads  and  echos  the  input  file*  checks  it  for  consistency*  and 
initializes  problem  specific  variables.  The  next  step  is  to  atomize  the 
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Figure  1 

Graphical  Representation  of 
the  Computational  Grid 
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cross-sactlonal^rea^of  ^the^chambar**  If  l^TrotT t0  t^10^1 

iriirr.r^^-Siir  2:  °Yt!::  rri!**ctio" 

the  streamtub.'s  mass  to  the  computati^IT aril  „ !"*  °!  *nd  distribute 

flow  is  uniformly  added  to  the  computati oJal  ^id.  Pl#t*'  th#  Coolant 

dy««niJraihI  f uncti ”CJf °thi “IlJi  lo^atiin  ***  Chamber  flas 

ssnLa.-  2 ztrzs^sr. 

section  of  the  chamber,  or  bu  VCONV  for  th.  W lth  V VCALC  for  the  cylindrical 

an  ERE  ..“f  vflofft^S^-f  M if  ^'flf  ‘ °4  V^C 

velocities  based  on  cell-to-cell  ma««  T?dxal  and  c lrc  umf  erent  ial 

axial  and  radial  velocitu^ ^basli  ? J°n*  VC0NV  cal^i*tes  a local 

turning  of  th#  oas  With  tropic  acceleration  and  wall  curvature 

frfii'.rtf  p”'11*  caicuiat.,.  offvE 

rf  if  1*9  *:  15 


SUBROUTINE  DESCRIPTION 


This  section  examines 
complete  listing  of  all  the 


the  salient  features  of  several  key 
subroutines  is  contained  in  Appendl 


subroutines, 
x II. 


SHEAR  is  used  to  calculate 
coefficient  and  total  number  of 


the  mass  median  dropsiie,  distribution 
drops  formed  by  a shear  coaxial  liquid-gas 

J-191  s 


A 


i n i«c  tor  The  oxidizer  i*  assumed  to  be  liquid  and  the  fuel  or  preburner 
hot  exhau.t  to  ba  gaa.  Tha  term  fuel  ia  used  to  rapra.ant  tha  gas  atraam. 

Cal culationa  begin  by  aatlmating  tha  oxldizar  poat  discharge 
m.fflUent  and  velocity  profile.  Th.se  calculationa  conaidar  tha  araa  ratio 
o'  "l loTt  Up  to  tha  m.t.ring  di.m.t.r,  tha  length  of  tha  final  diffuser 
slctionf  and  the  oxidizer  Reynolds  Number,  and  are  based  on  Ito  s C.n.ral 
Hudraul 1 c Flip  Model  (Ref  1).  The  fuel  stream  velocity  is  con,idt™d  have 
f^t.  turbulent  profile,  and  it  is  based  upon  a 1-D  calculation.  With  the 
velocities  i n both  streams  sat.  the  dropsize  formed  at  any  axial  position  is 
determined  by  equating  the  surface  tension  cohesive  force  to  the  interfacial 
shear  force  and  solving  for  the  dropsize# 

Rm=8*ST / < T*g ) 

where  Rm  is  the  droplet  radius  in  ft,  ST  is  the  oxidizer  surface  tension  in 
lllf/ft?  T is  the  interfacial  shear  stress  in  lbm/ft-sac2,  and  J • 
gravitational  constant.  The  intarfacial  shear  stress  is  estimated  as 


Tiro* ( Vf-Vx ) / < TPOST+DRJET ) 


where  m is  the  mean  dynamic  viscosity  for  the  fuel  and  the  oxidizer  in 
Thm/Jt-sic.  Vf  is  the  fuel  velocity,  Vx  is  the  oxidizer  free  surface  velocity, 
TPOST  is  the  oxidizer  post  wall  thickness,  and  DR^T  is  the  reduction  in 
oxidizer  jet  radius  due  to  mass  stripping.  Once  tha  dropsiza  for  an  axial 
Do«&*lon  i!  calculated,  tha  oxidizer  jet's  radius  is  raduc.d  to  account  for  the 
^ « tha  rfronlit*  formed  First  the  number  of  drops  formed  is  estimated  by 

!nw  6to7*  will  fit  around  the  outside  of  the  jet.  The  volume  of 

these  drops  is  removed  from  the  jet  and  the  resulting  truncated  conic  J! 

calculated.  The  integrated  flow  in  and  out  of  the  cone  is  then  used  to  calculate 
the  number  of  drops  formed  based  on  satisfaction  of  continuity. 

If  the  injector  contains  a recessed  post,  the  drops  formed  in  the  cup  are 
vaporized  betwien  their  generation  location  and  the  Ejector  face. . 
ofthe  droplet  vaporized  is  based  on  the  Priem's  Generalized  Length  Correlation 
(Ref  2)  which  is  used  thoughout  PLC  to  model  droplet  vaporization.  The  oxid izer 
vapor  is  added  to  the  fuel  stream.  The  added  mass  is  first  used  to  fill  fuel 

injection  flow  area,  i.  a.  increase  the  fuel  Cd  to  1.0.  and  than  to  accelerate 

the  fuel  velocity. 

RFILL  calculates  the  rate  at  which  the  injector  element's  streamtubes 
expand  in  the  near-face  zone.  It  vaporizes  and  accelerates  tha  drop  l.t. .at  each 
axial  step  until  the  total  cross-sectional  area  is  filled.  When  the  cross 
section  is  filled,  the  mass  in  the  streamtubes  is  distributed  to  tha 

computational  strea(ntubes  is  based  on  the  conservation  of  linear  momentum. 

The  flow  within  the  streamtubes  is  modelled  as  a set  of  rings.  The  inner  ring  is 
a circle  of  radius  RCORE  and  estimates  the  liqiuid  oxidizer  core  radius  as 
function  of  axial  location.  RCORE  is  estimated  as 


RC0RE=MAX(0.  0,  ( RXP- (RXP / (2.  0*AL > )* < X+RECESS > > 

where  RXP  is  the 
length,  X is  the 
recess.  RCORE  i» 

The  area  of  this 

ACZ=1 . 125*Wo/RHO/VCZ*ERE  J-192 


oxidizer  post  radius,  AL  is  tha  element's  mean  atomization 
current  axial  position,  and  RECESS  is  the  oxidizer  post  tip 
surrounded  by  an  annulus  of  stoichiometric  combustion  gases 

annulus,  ACZ,  is  estimated  as 


I 


d>nI7*«°o#SehII*s*o'cblM*trf  edi|nl,  “Ccz  u"tliin.«*M«II"t"i*'  RH°  th* 


VCZ=(8*Vo+Vf )/9.  0 

Of  the  unreact.d  fuel.  *qU*1  t0  th*  **reamtub.'.  radius,  i.  composed 

When  the  cross-section  is  k„  fk*  * . 

and  the  vaporized  mass  is  distributed  to  the  coin**  ^e*'  streamtube  flow  ceases 
Distribution  is  based  on  final  st^tub.  osS  „ f'TiV tV?  '"I* 

that  the  streamtubes  from  the  outer  row  of  elements  will  hi  **  * b?  a,,umln® 

annular  region  against  the  wall  of  cross-sec tlnnli  . 111  6 ?0rcad  into  a" 
cross-sectional  area  of  the  outer  row's  street!!?1  *qual  to  the  sum  of  the 

element  of  that  row  with  a circumferential  locating  *tartinfl  with  the 

angular  slice  of  the  annulus  is  catclu^j  lilt  t r Cl°Sest  to  *«*•  degrees,  an 
that  of  the  element's  streamtube.  This  process  is  rln*  araa  *qual  to 

the  outer  row.  Uhen  complete,  the  vapo^mas*  „.<«.!<  J*ated  for  a11  elements  of 
transferred  to  the  c omputati onal  grid  cells  cot-,.  annular  *llc«*  are 

locations  The  elements'  locatioS  are  replaced  lith"?!"9  t0  **Ch  annular  *Hces 
centroid  of  the  annular  slices'  IrA  ThJj  I™,!  \ * coordlnata«  the 

outermost  row  (the  second  row  from  the  waiijP  s?  15  rePeated  for  the  next 
the  outer  annulus'  inner  .ZJ“  tJI  Ioc«  a""Ular  *r"  abutt* 

complete,  the  transp  irat  ion  coolantPflow  is  unif!!I?*d  r°WS‘  Wh#n 

grid.  * flow  11  uniformly  added  to  the  computati onal 


MVAP  is  used  to  vaporize  the  droeletc  in  >n  , , , ,, 
1.3,.,  ,n  th.  Pri. -H.U-.ni,  Drop  l.t  vlp.rl.ilijj  *0?' 


It  is 


VCALC  calculates  the  gas  1-D  vtlnrif.. 

between  the  near-face  zone  and  the  entrant*  4*  Properties  at  axial  locations 
It  calculates  radial  an,  "C,io" 

mass  maldistributions  resulting  from  di  f f^IUli  f *?*  d°*  t0  call-to-cell 
element-to-e 1 ement  flow  variations  These  ve lor i ,°Ca  vaP°rlz*tion  rates  and 
of  mass  to  try  to  uniformly  distribute  itself  l!™?!  *1*  **“  th#  t,nd,nc'» 

than  to  remain  statified  in  zones  of  hioh  Ind  ?!  th#  cro«*-**ction  rather 

,.v.,cp».„,  ,po„„  a. . r „.f  ..t  • 

thrust  cha«.JCni,u« . '"It'IItJStl'lIil !#Ind"r«!  5°nv,r!''!nt  *«**«"  of  th. 

Of  the  local  wall  curvature  and  gas  properties  !!*  ??*  velocltia*  a«  * function 

tR!?1??*1'1011  °f  the  935  Xt  U based  on  tha  Droplet  Tra jlcto^y JCNyug ,n 

It  a 1 so^che  c k s ° f or  t0  -—dynamic  drag 

the  droplets  are  assumed  to  be  vaporized  at^thli  ,.If  lmPln9emant  occurs, 

shattering.  Both  Stoke's  flow  and^eiton  ia^  ^ P°lnt  to  secondary  droplet 
depending  on  the  applicable  R*unnirfe  w k exPres*ions  are  used 

the  form  used  in  SDER  (Ref  4)  which  elili!ltelhl  N£Wto"lan  dra9  equation  takes 
achieve  numerical  stability.  Rabin's  correlation<S!ePS! * * constraint  In  order  to 
liquid  droplet  are  used  to  cmUulItl  V°I  dFa9  °f  an  accalerating 

calculated  for  dropl.t  ...u.l„,  .up.rtri  tlcal  .,pa«  .Sn '"J'tJi' ' drljl.r**  “ 
th.  various  iidV:;:;;!.!1::"  »>«>••• 

function  ^chamber  pressure  and  local  mixture 


ratio  The  interpolation  uses  ODE  cbambe-  equilibrium  values  at  chamber 
nressures  of  300  and  3000  psia  and  mixture  ratios  r.njinj  from  O to  20.  The  gas 
nrooertles  calculated  are  specific  heat  ratio,  gas  temperature,  molecular  weight, 
density,  sonic  velocity,  characteristic  velocity  and  dynamic  viscosity. 
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appendix  I 


PLC  IlsPUT  INFORMATION 


CONTENTS 


Input  Format 
Sample  Input 
Sample  Input 


Information 

One:  Seven  Element,  Single  Row  Shear  Coaxial  Injector 
Two:  Thirteen  Element,  Single  Row  Hollow  Cone  Swirler 


Injector 
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Input  Format  Information 


#11  I***1?  *5*  * •t#P"  r«qulr«d  to  run  tha  PLC  aodal.  First  an  inout 

fils  has  to  ba  writtan.  Whan  tha  fila  is  coap’ata,  tha  usar  runs  tha  cpl  Jii. 
PLSET  to  aiza  tha  corona,  cra.t.  any  nac.a.Sry  iA.a^t  till.™!  crJ.tl  * 

ri  twoa«.pl^°input  mC.'  °"  contaln*  th*  for'at  ot  Input  fila.  a.  vali 

Tha  input  foraat  for  PLC  ia  aa  follows.  Tha  fila  MUST  ba  naaad  PL.  INPUT. 


TITLE  1 
TITLE  2 
(BLANK  LINE) 
SOUTPUT 
SEND 


(BLANK  LINE) 
PC  HGMR 

TINJ 

TC  RHO 

MU 

MW 

TINJ 

ST 

TC  RHO 
RHOC 

MU 

MW 

(BLANK  LINE) 
NXP 

XW(1)  RW(I) 


(A80) 

(ABO) 


(F7.2.F7.4) 
HOV  (6E12.4) 

HOV  (6E12.4) 
(2E12.4) 


(FUEL/HOT  GAS  PROPERTIES) 
(OX  PROPERTIES) 

(OX  PROPERTIES) 


(13) 

(2F7.4) 


XW(NXP)  RW(NXP) 

(BLANK  LINE) 
INPUT-TYPE  NEL  NROWS 
INPUT-TYPE  INPUT  FORM 
CFLOW  CFMR 
(BLANK  LINE) 

INJ-TYPE 

INJ-TYPE  INPUT  FORM 
(BLANK  LINE) 

$CONT 

SEND 


(2F7.4) 

(314) 

(2F8.4) 

(12) 


Tha  inputs  ara  furthar  dafinad  as  follows: 

NAMELIST  S OUT PUT  CONTROLS  PROGRAM  OUTPUT 

DEFAULT  IS  0 FOR  ALL  EXCEPT  IECHO  WHERE  O-OFF 


PARAMETER 

IECHO 

ITRACE 


IAFLG 


IRFFLG 


1MVFLG 

IVDFLG 

IPDFLG 

IDMFLG 

IDF  LG 

IMRFLG 


VALUES 

0/1 

0/1/2 


0/1/2/ 3 


0/ 1/2/3 


0/1 

0/1 

0/1 

0/1 

0/1 

o/l/ 2/ 3 


FUNCTION 
ECHO  INPUT 

TRACES  PROGRAM  PROGRESS: 

-1  AXIAL  LOCATION 
-2  AND  SUBROUTINE  ENTRY 
OUTPUTS  DROPLET  FORMATION  INFORMATION: 

■L*5°IAN  DROPSIZE,  DISTRIBUTION  PARAMETER,  NUMBER  OF 
^'n  S°N  VELOCITY,  AND  ATOMIZATION  LENCTO 

2 AND  DROPSIZES  FORMED  BY  SHEAR  COAX  INJECTOR 

-3  AND  DROPSIZES  AS  FORMED  AND  VAPORIZED  BY  SHEAR  COAX 

C^P^™R^LATI0M  Z0KI  CALCULATION  INFORMATION- 
1 PERCENT  OF  CROSS-SECTION  FILLED  AS  PfXI 

•2  AND  FINAL  INJECTOR  APPARENT  LOCATIONS 
"2  OISpUBUnON  FOR  STREAMTUBES  TO  CRID 

nfrrotrrc  n?#PLET  VAPORIZATION  INFORMATION 
OUTPUTS  DISTRIBUTION  OF  VAPOR 

OUTPUTS  AXIAL  AND  RADIAL  VELOCITY  COMPONENTS 
OUTPUTS  DROPLET  MOVEMENT  COMPONENTS 

OUTPUTS  DRAG  INTERACTION  PARAMETERS 
OUTPUTS  MASS  DISTRIBUTION  INFORMATION: 

“0  WALL  MR  AS  A FUNCTION  OF  THETA 
-1  AND  CROSS-SECTION  MR  AS  A F(R.THETA> 

:i  5**?  * *<*,  theta)  } 

3 AND  FUEL  AND  OXIDIZER  MASS  FLOW  AS  A F(R, THETA) 
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OPERATING  CONDITIONS  AND  INJECTION  PROPERTIES 

PC-CHAMBER  PRESSURE  (PSIA) 

HGMR-FUEL/HOT  GAS  MIXTURE  RATIO 
TINJ-INJECTION  TEMPERATURE  (DEG  F) 

TC-CRITICAL  TEMPERATURE  (DEG  F) 

RHO-DENSITY  (LBm/CU.  FT) 

MU-DYNAMIC  VISCOSITY  (LBm/FT-SEC) 

MW-MOLECULAR  WEIGHT  (LB»/LBMOLE) 

HOV-HEAT  OF  VAPORIZATION  AT  NBP  (BTU/LBm) 

ST-SURFACE  TENSION  (LBf/FT) 

RHOC-CRITICAL  DENSITY  (LBm/CU.  FT) 

Not#:  the  fuel/hot  gas  density  and/or  viscosity  may  be  set  to  zero  and  the 


CHAMBER  CONTOUR 

NXP- NUMBER  OF  CHAMBER  CONTOUR  DESCRIPTION  POINTS  (MINIMUM-2) 
XW-AXIAL  LOCATION  OF  RW  (INCHES) 

RW-CHAMBER  WALL  RADIUS  AT  XW  (INCHES) 


INJECTOR  ELEMENT  LAYOUT 

INPUT-TYPE— POSITION  AND  FLOW  INPUT  TYPE: 

-1  FOR  INPUT  EACH  ELEMENT  LOCATION  AND  FLOWRATE 

-2  FOR  INPUT  I ELEMENTS/ROW,  ROW  POSITION  AND  FLOWRATE  EQUATION 
NEL-TOTAL  NUMBER  OF  ELEMENTS 
NROWS -NUMBER  OF  CONCENTRIC  ROWS 


IF  INPUT-TYPE-1  INPUT-TYPE  INPUT  FORM  IS  OF  THE  FORMAT: 
ERPOS  ETPOS  FMF  XMF  (4F8.4) 


ERPOS-ELEMENT  RADIAL  LOCATION  FROM  CENTERLINE  (IN) 

ETPOS -ELEMENT  CIRCUMFERENTIAL  POSITION  FROM  0 DEGREE  REF  (DEG) 
FMF-HOT  GAS  MASS  FLOWRATE  (LBm/SEC) 

XMF— OX  MASS  FLOWRATE  (LBm/SEC) 

On#  lin#  for  each  element  listed  by  accending  radius  and  th#n  by 
ascanding  circumferential  location  within  a row 


IF  INPUT-TYPE-2  INPUT-TYPE  INPUT  FORM  IS  OF  THE  FORMAT: 


NELR  RROW 
FMF_EQ 
XMF  EQ 


(I4,F8.4) 

(A65) 

(A65) 


NELR-NUMBER  OF  ELEMENTS  IN  THAT  ROW 
RROW-RADIUS  OF  ELEMENTS  IN  ROW  (IN) 

FMF  EQ- FUEL/ HOT  GAS  MASS  FLOWRATE  EQUATION  (LBm/SEC) 
XMF_ EQ— OX  MASS  FLOWRATE  EQUATION  (LBm/SEC) 


a function  of  the  variable  theta,  the  circumferential  position, 
elements  in  a row  are  assumed  equi spaced  and  theta  is  in  rads 
(0-2pi) . rows  should  be  listed  in  ascending  radial  position. 
Note:  FORTRAN  trig,  functions  use  radians 


CFLOW-TOTAL  COOLANT  FLOWRATE  INTO  THE  THRUST  CHAMBER  (LBm/SEC) 
CFMR- COOLANT  FLOW  MIXTURE  RATIO 
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INJECTOR  TYPE  AND  DIMENSIONS 


ITYPE-1  FOR  SHEAR  COAX  INJECTOR  AND  ITYPE  INPUT  IS: 

RXP  RFP  TPOST  RECESS  RMS  XDL  FCD  (7F7.4) 

RXP-OX  POST  INNER  RADIUS  (IN) 

RFP- FUEL  ANNULUS  OUTER  RADIUS  (IN) 

T POST-OX  POST  THICKNESS  (IN) 

RECESS-OX  POST  RECESS  (IN) 

RMS-RADIUS  OF  OX  METERING  SECTION  (IN) 

XDL— OX  DIFUSER  SECTION  LENGTH  (IN) 

FCD— FUEL  ANNULUS  CD 

ITYPE-2  FOR  HOLLOW  CONE  SWIRL  COAX  AND  ITYPE  INPUT  IS: 

RXP  RFP  TPOST  CSA  FCD  XCD  (6F7.4) 

RXP— OX  POST  INNER  RADIUS  (IN) 

RFP- FUEL  ANNULUS  OUTER  RADIUS  (IN) 

T POST-OX  POST  THICKNESS  (IN) 

CSA-CONE  SPRAY  ANGLE  (DEG) 

FCD- FUEL  ANNULUS  CD 
XCO*OX  ANNULUS  CD 

ITYPE-3  FOR  IMPINGING  HOLLOW  CONE  SWIRL  TRIAX  AND  ITYPE  INPUT  IS 

RXP  RFP  TPOST  PFI  CSA  FCD  XCD  (7F7.4) 

RXP— OX  POST  INNER  RADIUS  (IN) 

RFP- FUEL  ANNULUS  OUTER  RADIUS  (IN) 

TPOST— OX  POST  THICKNESS  (IN) 

CSA-CONE  SPRAY  ANGLE  (DEG) 

PFI-PERCENT  FUEL  IMPINGED  (XXX. XXX) 

FCD- FUEL  ANNULUS  CD 
XCD-OX  ANNULUS  CD 


NAMELIST  $CONT  SETS  MODEL  CONTROL  PARAMETERS 


PARAMETER  DEFAULT 


FUNCTION 


NSEG 
NS LICE 
ASTEP 

XSTEP 


NROWS+1 
MIN ( 12  , NEL-1 ) 
2 ** ( -10 ) 

2** (-8 ) 


SETS  THE  NUMBER  OF  RADIAL  GRID  SEGMENTS 


THE  NUMBER  OF  CIRCUMFERENTIAL  GRID  SLICE! 
ATOMIZATION  STEPS I ZE  (FT) 


AXIAL  CALCULATION  STEPSIZE  (FT) 
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The  following  i%  a sample  input  file  for  a single  row.  seven  element  shtar 
con  i a i i n j * c tor . Element  flows  are  input  as  formulae  rather  then  for  tech 
element 


SAMPLE  INPUT  FILE  ONE 

ROW  TYPE  INPUT  FOR  SINGLE  ROW  SEVEN  ELEMENT  SHEAR  COAX 


•OUTPUT 

ITRACE-1.  IDMFLC'O,  IPDFLG-1.  IVDFLG-O,  IM^LG=0.  IDFLOO. 
IMRFLC-l.  IAFLG-1.  IRFFLG-1. 

• END 


3006  00  0 8249 


1 0940E3 
-2  700E2 
9 000E-6 


-3  999E2 
-1  820E2 
2 7217E1 


o.  oooeo  o oooeoo  2 016E0  1 953E2 

6 335EI  6 300E-3  3 200E1  9 162E1 


24 


0.  00 

0.  9604 

3.  00 

0 9604 

3 30 

0 9531 

4.  00 

0 9498 

4 50 

0 9445 

5 00 

0 9340 

3 30 

0.  9207 

6 00 

0.  9022 

6 50 

0 8810 

7 00 

0 8346 

7 30 

0 0308 

e.  oo 

0 8173 

0 50 

0.  7779 

9 00 

0 7540 

9 50 

0 7302 

10  00 

0 701  l 

10  30 

0 6773 

11  OO 

O.  6333 

1 1 30 

0.  6270 

12  00 

0.  6006 

12  30 

0.  3794 

13  00 

0 3662 

13  50 

0 5583 

14  00 

0.  3336 

2 7 1 

7 0 6791 

0 43530+0  043530*S I N ( THETA ) 

1 3145 

0.  0934  O 00 

1 

0 0940  0 2030  0 0210  0 2550  0 0790  l 3000  0 8000 

•CONT 

•END 
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The  following  is  an  input  for  a 
coaxial  Injector.  In  this  case. 


single  row,  thirteer  element  hollow-con# 
each  elements  location  and  flowrate  Is 


SAMPLE  INPUT  FILE  TWO 

SEVEN  ELEMENT  HOLLOW  CONE  SWIRLEft-  INDIVIDUAL  INPUTS 


♦OUTPUT 

I TRACE*!  , 
I MRFLC*1  , 
♦ END 


IDMFLC-O,  IPDFLG-1,  IVDFLG-O,  IM^L0=O,  IDFLOO, 
IAFLG-1,  IRFFLG*  1, 


3268  84  0 8931 

1 200OE3  -3  999E2  0.  000E0 
-2.  650E2  -1  820E2  6 335E1 
9 000E-6  2 7217E1 


24 

0 00 

1 309 

3 00 

1 309 

3 30 

1 303 

4 00 

l 293 

4 30 

1 288 

3 00 

1 273 

3 30 

1 256 

6 00 

1 229 

6 50 

l 200 

7 00 

1 166 

7 50 

1 133 

8 00 

1116 

8 30 

1 061 

9 00 

1 026 

9 50 

0 994 

10  00 

0.  957 

10  30 

0 923 

1 1 00 

0 889 

1 1 30 

0 834 

12.  00 

0 818 

12  30 

0 790 

13  00 

0 773 

13  30 

0 761 

14  00 

0 738 

1 13 

1 

0 926 

00  OOO 

0 926 

27  692 

0 926 

33  383 

0 926 

83  077 

0 926 

1 10.  769 

0 926 

138  462 

0 926 

166.  134 

0 926 

193  846 

0 926 

221  338 

0 926 

249  231 

O 926 

276  423 

0 926 

304  613 

0 926 

332  306 

0 2161 

0 000 

0. 48749  1 4148 
0 48749  1 4148 
0 48749  1 4148 
0 48749  1 4148 
O. 48749  1 4148 
0 48749  1 4148 
O 4B749  1 4148 
O 48749  1 4148 
O 48749  1 4148 
O 48749  1 4148 
O.  40749  1 4140 

0 48749  1 4148 
0.  48749  1 41 48 


0 OOOEOO  2 016E0 

6 300E-3  3 200E1 


1 953E2 
9 162E1 


2 

0.  0948  0.  2030  0.  0210  30  00  0 800  0 3000 

♦CONT 

NSEC*3,  NSLICE^S, 

♦END 


swirl 
inpu  t 
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APPENDIX  II 


PLC  PROGRAMS 


CONTENTS 


PLC  - main  calling  program 

SETUP  - subroutine  to  initilize  problem 

SHEAR  - subroutine  to  atomize  oxidizer  for  shear  coaxial  injectors 
CVAP  — subroutine  to  vaporize  droplets  generated  in  the  injector  cup 
RFILL  - subroutine  to  calculate  the  length  of  the  recirculation  zone 
DMTUBE  - subroutine  to  accelerate  droplets  in  streamtubes 

MRTUBE  — subroutine  to  output  streamtube  MR ' s as  a function  of  axial  location 
GRIDGEN  - subroutine  to  generate  computational  grid  and  calculate  local  contour 
MVAP  - subroutine  to  vaporize  droplets 

VDIST  - subroutine  to  distribute  vaporized  oxidizer  to  computational  grid 

VCALC  — subroutine  to  calculate  velocity  field  in  cylindrical  section  of  chamber 

VCONV  - subroutine  to  calculate  velocity  field  in  convergent  section  of  chamber 

MACH  - subroutine  to  calculate  mach  number  as  a function  of  area  ratio 

DMOVE  — subroutine  to  move  droplets  due  to  aerodynamic  drag 

DRAG  - subroutine  to  calculate  aerodynamic  acceleration  of  droplets 

MRPLOT  - subroutine  to  output  mixture  ratio  profile  across  cross-section 

CERE  - subroutine  to  calculate  TCA  efficiencies 

DBLINT  - subroutine  to  interpolate  gas  properties 

COMMON  - common  to  be  sized  and  inserted  at  runtime 

PLSET  - CPL  file  to  size  and  insert  common  at  runtime 


PROGRAM  PLC 


C 

r TCic  m^,ING  PR0GRAM  F0R  COMBUSTION  SECTION  OF  PERFORMANCE/ 

^ Hht  nUDEL 

c 

C DECLARATIONS  AND  OPENS 

C 

♦INSERT  COMMON 
C 


C 

C 

C 


OPEN 

OPEN 

OPEN 


( UNI  T*5,  FILE*  'PL.  INPUT',  STATUS= 'OLD ' , ERR=8000  ) 
(UNIT-6,  FILE*  'PL.  HISTORY',  STATUS*  'NEW  ' , ERR*8  1 00) 
( UNI  T=7,  FILE*  'MR.  DIST  ',  STATUS* 'NEW ERR=8200) 


INITIALIZE  PROBLEM 


C 

C 

c 

c 


c 

c 

c 


CALL  SETUP 
IEFLG=0 


ATOMIZE  LOX 
COEFFICIENT, 


AND  CALCULATE  MASS  MEDIAN  DROPSIZE,  DISTRIBUTION 
MEAN  ATOMIZATION  LENGTH.  AND  INJECTION  VELOCITY 


X=0.  0 

IF  ( ITYPE  EQ.  1)  CALL  SHEAR 

IF  (ITYPE  EQ.  2 OR.  ITYPE  EQ.  3)  CALL  SWIRL 
IF  (X  LT.  0 0)  GOTO  9000 


CALCULATE  RECIRCULATION  ZONE  AND  DISTRIBUTE  MASS  ACROSS  CHAMBER 


CALL  RFILL 

IF  (X  LE.  0.  0)  GOTO  9100 
CALL  MRPLOT 
C 

C STEP  IN  X 

C 

100  X=X+XSTEP 

IF  (ITRACE  GT.  0)  WRI TE( 6.  1 10 ) X 

c 110  F°r™T(/1X.  '*********  BEGIN  LOOP  FOR  X=',F7.4,  ' FT  ******#**',/  j x ) 

C GENERATE  LOCAL  GRID 

C 


CALL  GRIDGEN 

IF  (RWALLX  . LE.  0.0)  GOTO  9200 

VAPORIZE  AND  DISTRIBUTE  MASS  BETWEEN  X AND  X+XSTEP 


CALL  MVAP 
CALL  VDIST 
C 

C CALCULATE  VELOCITIES 

C 


IF  (X  LE.  XI)  CALL  VCALC 
IF  (X  GT.  XI)  CALL  VCONV 

MOVE  DROPS  AND  CHECK  FOR  IMPINGMENT 


CALL  DMOVE 

IF  (X  LT.  0 0)  GOTO  9300 
C 

C CALCULATE  VMR 

C 
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o o o n n n 


CALL  MRPLOT 

IF  (X  LT  XW(NXP>>  GOTO  100 


CALCULATE  OVERALL  ERE 
CALL  CERE 

1500  CLOSE  (UNI T=5 ) 

CLOSE  < UNI T=6 ) 

CLOSE  (UNI T =7 ) 

STOP 


ERROR  CONDITIONS 


8000  WRITE  ( 1 . * ) 
STOP 

8100  WRITE  (1.  *) 
GOTO  1500 
8200  WRITE  (1.  *) 
GOTO  1500 
9000  WRITE  ( 6.  * ) 
GOTO  1500 
9100  WRITE  (6,  *) 
GOTO  1500 
9200  WRITE  ( 6,  * ) 
GOTO  1500 
9300  WRITE  (6.  *) 
GOTO  1500 
END 


'PL  INPUT  DOES  NOT  EXIST.  RUN  ABORTED' 

'PL  HISTORY  ALREADY  EXISTS.  RENAME  AND  RERUN' 
'MR  DIST  ALREADY  EXISTS.  RENAME  AND  RERUN' 
'ERROR  IN  ATOMIZATION  SUBROUTINE;  RUN  STOPPED' 
'ERROR  IN  SUBROUTINE  RFILL;  RUN  STOPPED' 

'ERROR  IN  SUBROUTINE  GRIDGENi  RUN  STOPPED' 
'ERROR  IN  SUBROUTINE  DMOVE;  RUN  STOPPED' 
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non 


SUGROUTINE  SETUP 
C 

C ^“e0CO^STT?on“SdELNIT,AL  Pn0BLE"  VAR,ABLES  F°"  PERFORMANCE/ 
c CHECK  RW  FOR  CONSISTINCY,  CALCULATES  WANGLE 

C CONVERTS  INPUT  UNITS  TO  LBm-FT -SEC -PS I UNITS 

•INSERT  COMMON 
C 

CHARACTER  TITLE*80,  DUMMY*80,  FEG*80»  XEG*80 

NAMELIST  /OUTPUT/  IAFLG.  IVDFLG,  IMVFLG,  IPDFLG.  IDMFLG.  I ECHO. 

* ITRACE,  IMRFLG.  IDFLG,  IRFFLG 

NAMELIST  /CONT/  NSEG.  NSLICE,  XSTEP.  ASTEP 

DATA  I ECHO,  IAFLG,  IVDFLG,  IMVFLG,  IPDFLG.  IDMFLG,  IMRFLG,  IDFLG, 
IFFFLG.  ITRACE  / 1,9*0/ 

FORMAT  STATEMENTS 


10  FORMAT (A80) 

11  FORMAT  <//25X.  'OUTPUT  CONTROL  PARAMETERS  ( 1 -ON ) ' . // 5X,  ' ATOM®  ',12, 

* 5X,  'MVAP- ' , 12,  5X,  ' VDIST=  ',  12,  5X , 'VC  ALC=  ' , 12,  5X.  'DMOVE-  ' , 

* '?Vr^ED'AG=''I2'3X'  'MRPL0T=''I^^.  'RFILL-M2.5X, 

20  FORMAT (F7  2.  F7.  4) 

21  FORMAT  ( 6E1  2.  4) 

22  FORMAT  <2£  12.  4) 

23  FORMAT  <//25X.  'FUEL  AND  OX  PROPERTIES,  PC- ' . F7  2,  ' HOT  GAS  MR-' 

* F7  4,  //IX,  'FUEL:  ',  4X.  "arm  , 

* ' T I N J—  ' , F7.  2,  3X » 'TCR  IT-  ' , F7.  2,  3X,  'DENS I TY-  ' , F7.  3,  3X, 

* 'VISCOSITY-  ',  E12 .4,  3X,  'M.  W.  - F7.  3.  3X.  'HEAT  OF  VAP=',F7  2. 

* /3X,  'OX.  ',  4 X,  'T INJ=  ',  F7 . 2,  3X.  'TCRIT-',  F7.  2,  3X,  'DENSITY-  ', 

* F7 . 3.3X.  'VISCOSITY- ',E12.  4,  3X,  'M.  W.  = ',F7.3,  3X» 

* 'HEAT  OF  VAP-'.  F7.  2. /10X,  'SURFACE  TENSI ON- ' , E12  6.  3X, 

* 'CRITICAL  DENSITY-',  F7  3) 

30  FORMAT ( 13) 

31  FORMAT  ( //25X.  'CHAMBER  CONTOUR',//) 

32  FORMAT (2F7.  4) 

33  FORMATOX,  'POINT-  ' , 12,  SX,  ' X- ' , F7.  4 , SX.  'RWALL-  ' , F7  4) 

34  FORMAT  ( /5X . ' X 1 ( FT ) = ',  F7.  4,  5X.  ' X2  ( FT  )=  ' , F7.  4.  5X.  'CR=',F6  3) 

40  FORMAT (314 > 

41  FORMAT  ( //23X,  'INJECTOR  ELEMENT  POSITIONS',//) 

42  FORMAT  (2F8.  4.  2F8.  5) 

43  FORMAT  ( IX,  'ROW  M2,  ' ELEMENTS') 

44  FORMAT OX,  ' INJECTOR- ',  13,  3X,  'RADIUS- '.  F8.  4.  SX.  'THETA-',  F8  4,  SX, 

* 'FUEL  MASS  FLOW-',  F8.  5.  SX,  'OX  MASS  FL0W='.F8  5) 

45  FORMAT  ( 14.  F8.  4)  ' 

46  FORMAT  (IX,  'ROW  M3,'  IS  CENTERED  AT  R= ',  F8.  4,  ' in.  AND  CONTAINS  ' 

* . 13,  ELEMENTS' ) 

47  FORMAT (A80) 

48  FORMATOX,  'FUEL  FLOW  EQ:  ',A80./7X,  'OX  FLOW  EQ:  ',  A80,  /SX, 

* 'ROW  FUEL  FLOW—  ' , F8.  3,  SX,  'ROW  OX  FL0W=',F8  3) 

49  FORMAT (2F8  4) 

50  FORMAT  (/5X>  'COOLANT  MASS  FLOW-  ' . FB.  4.  SX.  'COOLANT  MR=',F8  4) 

51  FORMAT  (/5X,  'TOTAL  FUEL  MASS  FL0W=',F8.  3,  SX,  'TOTAL  FUEL  VAPOR  MASS' 

* . FLOW- ',  FB.  3,  /SX,  'TOTAL  OX  MASS  FLOW  =',F8  3.  SX,  'TOTAL', 

* 'OX  VAPOR  MASS  FLOW  =',F8  3) 

60  FORMAT ( 12) 

61  FORMAT (7F7  4) 

62  FORMAT ( //20X,  'SHEAR  COAXIAL  INJECTOR  CONFI GURATION ' . // 5X. 

* 'OX  POST  RADIUS- ',  F7  4,  8X,  'OX  POST  THICKNESS- ',  F7.  4,  4X, 
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* 'OX  POST  RECESS-  ',  F7  4,  /5X.  'OX  METERING  RADI  US* 'F7  4, 4X, 

* 'OX  POST  DIFFUSER  LENGTH=  F7.  4.  /5X.  'FUEL  POST  RADIUS*'. 

* F7.  4,  6X.  'FUEL  CD*'.  F7.  4) 

63  FORMAT (6F7  4) 

64  FORMAT ( //20X<  'SWIRL  COAXIAL  INJECTOR  CONFIGURATION  . //5Xi 

* 'OX  POST  RADIUS* '.  F7.  4,  0X,  'OX  POST  THICKNESS* '.  F7.  4,  /5X, 

* 'SPRAY  FAN  ANGLE*'.  F7  4,  7X.  'OX  CD*'.  F7.  4.  /5X. 

* 'FUEL  POST  RADIUS*',  F7  4,  6X,  'FUEL  CD=\F7.  4) 

65  FORMAT  ( //20X.  'IMPINGING  TRIAXIAL  INJECTOR  CONFIGURATION'.  //5X. 

* 'OX  POST  RAD  IUS*  ' . F7  4.  8X.  'OX  POST  THICKNESS*  F7.  4.  / 5X . 

* 'SPRAY  FAN  ANGLE* ',  F7.  4,  7X,  'OX  CD* '.  F7.  4. /5X, 

* 'FUEL  POST  RADIUS*',  F7.  4.  5X,  'FUEL  CD* '.  F7.  4,  /5X. 

* 'PERCENT  FUEL  INP ING ING*  ' . F7  4 ) 

70  FORMAT ( //25X.  'CALCULATION  CONTROL  P AR AMETERS ' . / /5X  . '#  SEGMENTS- 

* 12,  5X.  ' # SL  ICES*  ',  13,  /5X,  'ATOM  STEPSIZE*  ',  E 12  4,  5X, 

* 'VAPOR  STEPSIZE*',  E12.  4,  //> 


C 

IF  (ITRACE  EG.  2)  WRITE(6. 1) 

1 FORMAT  < /IX,  'ENTER  SETUP') 

DUMMY* ' ' 

C 

C READ  AND  WRITE  TITLE 

C 

READ  < 5.  10 ) TITLE 
WR  ITE  ( 6,  1 0 ) T I TLE 
WRITE (7,  10) TITLE 
READ<5. 10)TITLE 
WR ITE ( 6, 10 )TITLE 
WR I TE ( 7 , 10 ) TITLE 
C 

C READ  OUTPUT  FLAGS 

C 

READ(  5,  10 ) TITLE 

IF (TITLE  . NE.  DUMMY)  GOTO  9000 
READ<  5. OUTPUT) 

IF  (IECHO  EG.  1)  WRITE<6.  11)  IAFLG,  IMVFLG.  IVDFLG,  IPDFLG. 

* IDMFLG,  IDFLG,  IMRFLG,  IRFFLG.  ITRACE 

C 

C READ  OPERATING  CONDITION  AND  PROPERTIES 

C 

READ< 5, 10 ) TITLE 

IF (TITLE  . NE.  DUMMY)  GOTO  9000 
READ<  5,  20  ) PC,  HGMRO 

READ(  5,  21 ) FTJ.  FTC,  FRHO.  FMU.  FMW.  FHV 
READ< 5, 21 ) XTJ,  XTC,  XRHO.  XMU.  XMW,  XHV 
READ(  5,  22)  XST,  XRHOC 
IC=2 

IF  (FMW  LE.  0.0)  CALL  DBLINT  (PC,  HGMRO.  IC.  FMW) 

IC*5 

IF  (FRHO  . LE.  0.0)  CALL  DBLINT  (PC,  HGMRO.  IC,  FRHO) 

I C =7 

IF  (GMU  . LE.  O.  0)  CALL  DBLINT  (PC,  HGMRO,  IC.  FMU) 

IF  (IECHO  EG.  1)  WRITE(6.  23)PC,  HGMRO.  FTJ.  FTC.  FRHO.  FMU.  FMW, 

* FHV,  XTJ,  XTC.  XRHO,  XMU.  XMW.  XHV,  XST,  XRHOC 

C 

C READ  CHAMBER  DESCRIPTION 

C CHECK  FOR  CONSISTENCY.  CALCULATE  XI.  X2,  CR.  WANGLE 

C 

100  READ( 5, 10 ) T ITLE 

IF  (TITLE  . NE.  DUMMY)  GOTO  9000  j-206 


n o n n o 


READ( 5. 30) NXP 

IF  (IECH0  EQ.  1)  WRITE(6, 31) 
DO  200  1=1, NXP 


READ  (5,  32,  ERR=91 10)  XW<  I ),  RW<  I) 

IF  < IECHO  EQ  1)  WRITE  (6,  33)1,  XW(  I ) , RW  ( I ) 

XW  ( I ) =X  W { I ) / 12.  0 
RW( I )=RW( I ) / 12  0 
200  CONTINUE 

IF  (XW(1)  GT.  0.0)  GOTO  9120 
DO  250  1=1,  NXP- 1 

IF  ( XW ( I ) GE  XW(I+1))  GOTO 
IF  <RW(I  + 1)  . GT.  RW ( I ) ) GOTO 
WANGLE ( I )=ATAN< (RW( 1+1 ) -RW( I ) ) / (XW( 1+1 ) -XW( I ) ) ) 
250  CONTINUE 


9130 

9140 


CR=(RW( 1)/RW(NXP> ) **2 
X1=0.  0 
X2=XW ( NXP ) 

DO  275  1=1 , NXP - 1 

IF  ( WANGLE  ( I ) LT.  O.  0)  GOTO  280 
275  CONTINUE 
GOTO  9150 
280  X1=XW( I ) 

X2=XW ( NXP ) -XI 

IF  (IECHO  EQ.  1)  WR I TE  ( 6,  34)  XI,  X2.  CR 


READ  INJECTOR  FACE  LAYOUT, 
NELR,  AND  TOTAL  NASS  FLOWS 
ACCUMULATORS 


CHECK  FOR  CONSISTENCY,  CALCULATE  RROW, 
DECOMPOSE  HOT  GAS  AND  LOAD  TOTAL  VAPOR 


300  READ< 5, 10) TITLE 

IF ( TITLE  . NE.  DUMMY)  GOTO  9000 
READ<  5, 40)  INTYPE,  NEL,  NROWS 
IF  (IECHO  EQ.  1)  WRITE(6,  41) 

TFF=0.  0 
TXF=0.  0 
THVM=0  0 
TXVM=0  0 

IF  (INTYPE  . EQ.  2)  GOTO  400 

TYPE  1 INPUT;  R,  THETA,  FLOW  FOR  ALL  ELEMENTS 


IR0W=0 
R 1 =-l . O 

DO  310  1=1, NROWS 
NELR ( I ) =0 
310  CONTINUE 

DO  350  1=1, NEL 

READ(5»  42,  ERR=9210)  ERPOS(I),  ETPOS(I), 
IF  (ERPOS(I)  LT.  Rl)  GOTO  9220 
IF  (ERPOS(I)  GT.  Rl)  THEN 
IR0W=IR0W+1 
R1=ERP0S ( I ) 

TC=-  1 . O 


FMF ( I ) , XMF ( I ) 


RR0W(IR0W)=R1/12  0 

IF  (I  ECHO  EQ.  1)  WRITE(6,  43)  IROW 
END  IF 

IF  < I EC  HO  . EQ.  1)  WP  ITE  ( 6,  44  > I.  ERPOC(I),  ETPOS(I).  FMF  ( I ) , 

XMF ( I ) 

ERP0S(  I ) =ERPOS  ( I ) / 1 2.  0 

IF  (ERPOS(I)  GE.  R W ( 1 ) OR.  ETPOS(I)  GT. 
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360.  0)  GOTO  9230 


ouo  * # ooo  ou 


IF  (ETPOS(I)  LE  TO  GOTO  9240 
TC=ERP0S< I > 

NELR  < IROW) =NELR ( IR0W)+1 
FMF ( I ) = FMF ( I )/( 1.  O+HGMRO ) 

XMF ( I ) = XMF ( I ) +FMF( I ) *HGMR0 
TFF=TFF+FMF( I) 

TXF—TXF+XMF ( I) 

THVM=THVM+FMF ( I ) 

TXVM=TX  VM+FMF ( I )*HGMR0 
350  CONTINUE 

IF  (IROW  . NE.  NROWS)  GOTO  9250 
GOTO  499 

TYPE  2 INPUTS;  R,  NELR,  FLOWRATES  AS  F(R,  THETA) 


400 


450 

460 

499 


ICNT=0 

DO  460  IROW-1 , NROWS 

READ<5,  45,  ERR=9280)  NELR ( IROW) , RROW(IROW) 

IF  ( IECHO  . EG.  1)  WRITE(6,  46)  IROW,  RROW(IROW),  NELR  ( IROW) 
READ(5,  47,  ERR=9290)  FEQ 
READ  ( 5,  47,  ERR*=9295 ) XEG 
IEL 1 “ICNT+ 1 

IELL=IEL1+NELR  < IR0W)-1 
TI*6.  28319/NELR ( IROW) 

RFSUM=0  0 
RXSUM=0  O 

DO  450  I NJ= I EL  1 , I ELL 
ICNT=ICNT+1 
THET A=T I * ( I N J-I EL 1 ) 

!T  FMF.  EQ 
IT  XMF.  EQ 

FMF<  I NJ ) =*FMF  < I N J ) / ( 1 . O+HGMRO) 

Xf-F(  INJ)-XMF( INJ)+FMF( INJ)*HGMRO 
RFSUM*RFSUM+FMF( INJ) 

RXSUM=»RXSUM+XMF(  INJ) 

TFF3TFF+FMF ( INJ) 

TXF=TXF+XMF( INJ) 

THVM=THVM+FMF( INJ) 

TXVM=TXVM+FMF( INJ)*HGMRO 
CONTINUE 

IF  (IECHO  . EQ.  1)  WRITE(6,  40)  FEQ,  XEQ,  RFSUM,  RXSUM 
CONTINUE 

READ(  5,  49  ) CFLOW,  CFMR 

IF  (IECHO  EQ.  1)  WRITE(6,  50)  CFLOW,  CFMR 
TXVM=TXVM+CFLQW*CFMR/( 1.  O+CFMR ) 

THVM=THVM+CFLOW/ ( 1 . O+CFMR ) 

TXF^TXF+CF LOW* CFMR / ( 1 . O+CFMR) 

TFF=TFF+CFLOW/ ( 1 O+CFMR ) 

IF  (IECHO  EQ.  1)  WRITE(6,  51)  TFF,  THVM,  TXF,  TXVM 


READ  INJECTOR 

READ( 5, 10 ) T ITLE 

IF  (TITLE  . NE.  DUMMY)  GOTO  9000 

READ ( 5, 60,  ERR*9300) ITYPE 

IF  (ITYPE  LT.  1 OR.  ITYPE  GT.  3)  GOTO  9300 
IF  (ITYPE  . EQ.  2)  GOTO  520 
IF  (ITYPE  EG.  3)  GOTO  530 

SHEAR  COAX  INJECTOR  rone 


READ(5,  61  )RXP,  RFP.  TPOST,  RECESS,  RMS,  XDL,  FCD.  XCD 
IF  ( I ECHO  EQ.  1)  WRITE(6,  62)RXP.  TPOST.  RECESS.  RMS.  XDL. 

* RFP.  FCD 

RECESS=RECESS/ 12  0 
RMS“RMS/12.  0 
XDL=XDL/12  O 
GOTO  550 
C 

C SWIRL  COAX  INJECTOR 

C 


520  READ( 5. 63) RXP.  RFP,  TPOST.  CSA,  FCD,  XCD 

inxn1^0  E°  U WRITE(6'64)  TPOST.  CSA.  XCD.  RFP,  FCD 

GUTU  540 

c 

C INPINGING  TRIAX  INJECTOR 

C 


c 

c 

c 

c 


530  READ<5,  61  >RXP,  RFP,  TPOST,  CSA,  PFI,  FCD,  XCD 

IF  < I ECHO  EQ.  1)  WRITE(6,  65)  RXP,  TPOST,  CSA,  XCD,  RFP,  FCD,  PFI 
540  CSA=CSA*3.  1416/130  0 FI 

550  RFP=RFP/12.  0 
RXP=RXP/12.  0 
TP OST= TPOST /I 2. 0 

READ  PROBLEM  CONTROL  PARAMETERS 

IF  DEFAULTS  ARE  CHANGED,  THEY  MUST  ALSO  BE  UPDATED  IN  PLSET  CPL 


NSEG=NR0WS+1 
NSL ICE= 12 

XSTEP^^O**^)1  AND  >SCL  LT  13  AN°  NEL  ®T  n NSLICE=NEL-1 
ASTEP=2  0*#(-10) 

READ( 5, CONT) 

M ™Cw  ,^LICE  hrite<6>  70,NSE8'  astep.  xstep 

DO  600  J*l,  NSEG 
XGR I D < I , J)=0-  O 
HGR I D ( I , J)=0. 0 
600  CONTINUE 
RETURN 
C 

C ERROR  CONDITION 

C 


9000  WRITE (6,*)  'BLANK 
GOTO  9999 

9110  WRITEI6,  #)  'ERROR 
GOTO  9999 


LINE  GROUP  SEPERATOR  MISSING,  RUN 
READING  XW,  RW  FOR  POSITION='.  I. 


STOPPED  ' 

RUN  STOPPED  ' 


9120  WRITEI6,  #)  'FIRST  XW  NOT  AT  INJECTOR  FACE.  RUN  STOPPED' 

GOTO  9999 

91 30  WR  I TE  ( 6,  * ) XW  < I ) GE.  XW(  I +1 ) FOR  1=  ' , I,  ' , RUN  STOPPED  ' 

GOTO  9999 

9140  gS^E;99;,/INC0NSISTENTCY  WITH  RW  F0R  *W=''*W<I),RW(I),RW(I  + 1) 

9150  WR I TE < 6, * ) 'NO  THROAT  CALCULATED,  RUN  STOPPED' 

GOTO  9999 

9210  C0°RDINATES  F°R  EL*=''1’  ' MISSING.  RUN  STOPPED' 

9220  WRITE<6,  *)  'ELEMENT  I.  ' NOT  IN  ASCENDING  RADIUS  ORDER,  ', 

* 'RUN  STOPPED' 

GOTO  9999 


#** 


J-209 


9230  WR  ITE! 6. *) 
GOTO  9999 
9240  WR ITE<  6. *) 
GOTO  9999 
9250  WR ITE<  6, »> 
* 


'INJECTOR  OUTSIDE  CHAMBER  FOR  I*'.  I.  '»  RUN  STOPPED' 

'INJECTORS  NOT  IN  ASCENDING  THETA  ORDER.  RUN  STOPPED' 

NROWS.  ' ’ ROWS  NOT  INPUT,  LAST  ROW  OF  RAD IUS= ' . RROW ( I ROW  ) 
, ' FEET,  RUN  STOPPED' 


9260 

9270 

9280 

9290 

9295 

9300 

9998 

9999 


GOTO  9999 

WRITEC6,  *)  'ERROR  OPENING  FMF.  EQ,  RUN  STOPPED' 

GOTO  9998 

WRITE!  6,*)  'ERROR  OPENING  XMF.  EQ,  RUN  STOPPED' 

GOTO  9998 

WRITE(6, *)  'NO  ROW  INFORMATION  FOUND  FOR  ROW='.  IROW,  ' RUN  STOPPED' 
GOTO  9998 

WR  ITE  ( 6,  * ) 'NO  FUEL  EQUATION  FOUND  FOR  ROW='.IROW,  ' RUN  STOPPED' 
GOTO  9998 

WR ITE ( 6. * > 'NO  OX  EQUATION  FOUND  FOR  ROW='.  IROW.  ' RUN  STOPPED' 

GOTO  9998 

WRITE<6.*>  'ERROR  WITH  INJECTOR  TYPE,  I TYPE= I TYPE.  ' RUN  STOPPED' 

GOTO  9999 
CLOSE! UNI T=8) 

CLOSE! UNIT =9) 

CLOSE ! UNI T=5) 

CLOSE (UNIT =6) 

CLOSE! UNI T=7) 


STOP 

END 
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DUO 


SUBROUTINE  SHEAR 


oc?.G»mc  IaJ^ALCULATE  DR0PLET  FORMATION  FOR  SHEAR  COAXIAL  INJECTOR 
MEDIAN  DROPSIZE,  NUMBER  OF  DROPS/SEC  AND  DISTRIBUTION 
PARAMETER,  SG  AS  WELL  AS  MEAN  ATOMIZATION  LENGTH  AND  INJECTION  VELOCITY 

OUTPUTS: 

RMM=MASS  MEDIAN  DROPLET  RADIUS,  FT 
TND=TOTAL  NUMBER  OF  DROPS  OF  GENERATED  BY  ELEMENT 
SG=DISTRIBUTION  PARAMETER 
AL=MEAN  ATOMIZATION  LENGTH,  FT 

VJ=MEAN  INJECTION  VELOCITY.  FT/SEC  IN  THE  FORM  OF 
VFACT,  THE  VAPORIZATION  FACTOR  IN  LGEN 


C 
C 
C 
C 
C 
C 
C 
C 
C 
r 

C 
C 
C 
C 
C 
C 
C 

♦INSERT  COMMON 

DIMENSION  R <200), 
C 


ERROR  CONDITIONS: 

X=-l  ITERATION  NOT  CONVERGED  AFTER  20  LOOPS 
AX  BEYOND  THROAT 

R AND  XD  NOT  DIMENSIONED  LARGE  ENOUGH,  I . E.  A 
GREATER  THAN  ANTICIPATED  NUMBER  OF  DROPSIZES  GENERATED 
XND  LT  1 OR  R JET  LT  0 


XD<  200) 


X = -2 
X = -3 

X = -4 


IF  (ITRACE  EQ.  2)  WRITE!  6,  1 ) 

1 FORMAT (/IX,  'ENTER  SHEAR') 

XCD=1 . 0 

QFACT=4.  0/3.  0*3.  1416 

nnPtnnn*?M  fY  IL  0-<XTJ+460  >/'<XTC+460.  ))**0.  4/XHV**0.  8/XMW**0  35 
UU  1UUU  1NJ=1#  NEL 

. IF  * EQ  XMF(INJ-1)  • AND.  FMF(INJ)  EQ  FMF(INJ-l)) 

* GOTO  1100 

c 

c INITIALIZE  SIZES 

C 

AX=— RECESS 
RJETO=R  XP 
A=RFP 

B=R  XP+TPOST 
EFF=FMF  < INJ ) 

ELXF=XMF<INJ)-EFF*HCMRO 
EVXF=EFF*HGMRO 
HGMR  < IN J )=HGMRO 
HGCD^FCD 
DO  2 1*1, 200 
R < I ) =0.  0 
XD<  I ) =0.  O 
2 CONTINUE 

I DC  =0 

TND  < INJ ) =0.  0 
VT0T=0.  0 
RT0T=0.  0 
IC  = 4 

CALL  DBLINT (PC,  < TXF/TFF ) , IC,  VSONIC) 

XF I LL=X 1 

VT=0. 62 / CR*VSON IC 
IF  (XI  GT.  O O)  GOTO  50 
XF I LL=X2 
VT= VSONIC 


C 
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c CALCULATE  OX  VELOCITY  PROFILE 

C 

50  CCO=(RMS/RXP >**2 

VMEAN=ELXF/  XRHO/3.  1416/RMS**2 
RE=2.  0*XRH0*VMEAN*RMS/XMU 

IF  (RE  GE  4000  0)  RCR  IT=(  ( 1.  O-SQRT  ( CCO ) ) / O.  75  ) **  1 . 25*RE**0.  25 
IF  (RE  . LT.  4000.0)  RCR  IT=<  ( 1 O-SQRT(CCO) ) / 1 1 28)**2*RE 
AR=<  XDL/RMS/2.  0) 

IF  ( RCR IT  . LE  AR)  GOTO  150 
C 

C CALCULATE  XCD 

C 

RE 1=4  0 

CE 1 =CC0+0  2 1 4*AR 

IF  (RE  LT  1 0E5 ) GOTO  100 

RE1  =5.  0 

CE1  =CC0+0.  095*AR 
IF  (RE  LT.  1.0E6)  GOTO  100 
RE 1=6  0 
CE1 =0  054*AR 
100  RE2=5  0 

CE2=CC0+0.  095*AR 

IF  (RE  . LT.  1.0E5  OR.  RE  . GE.  1.0E6)  GOTO  120 
RE2=6  0 

CE2=CC0+0.  054*AR 

120  CCE=CEH-(CE2-CE1  )/(RE2-REl  ) * (LOG  10  ( RE) -RE1  ) 

IF  ( CCE  . GT  1.  0)  CCE=1  0 

XCD= (CCO-O.  5 ) +0  31789*EXP(0.  89 1 92* ( CCE-CCO+O.  5) ) 

RJET0=SQRT ( R JET  *XCD ) 

C 

C CALCULATE  POTENTIAL  CORE  SIZE  AND  BL  PROFILE 

C 

150  RJET=RJET0 

REM=AINT (LOG 10 ( RE) ) 

FR=RE/(  10.  0**REM) 

DEL=RMS*EXP  (LOG  (0.  048)  + (6.  0-REM-FR)*0.  44)*AR**0.  8 
RP=RMS-DEL 

IF  (RP  LT.  0.  0 ) RP=0.  0 
ICNT=0.  0 
P0W=0.  7 

CFACT=(ELXF-XRH0*VMEAN*3.  1 4 16*RP**2 ) /3.  14167XRH0/VMEAN 
200  Fl=(RJET**2+RJET*RP*P0W+( 1 O+POW ) *RP**2 ) 

F2=P0W**2+3.  0*P0W+2.  0 
F3=2.  0*P0W+3.  0 
FX=F 1 /F2-CFACT 

FP=(F2*(RJET*RP-t-RP**2)-Fl*F3)/F2**2 

POWN=POW-FX/FP 

IF  (ABS (POW-POWN)  . LE  l.OE-4)  GOTO  210 

ICNT=ICNT+1 

POW=POWN 

IF  ( ICNT  . LE.  10)  GOTO  200 
GOTO  9000 
C 

C CALCULATE  FUEL  AND  OX  FREE  SURFACE  VELOCITIES 

C 

210  VF=(EFF+EVXF)/(FCD*FRH0*3  1 4 16* ( A**2-B* *2) ) 

VF0=VF 

220  V0= VMEAN 

IF  ( RJET  CT  RP)  VO=VMEAN* ( R JETO-R JET  >/(RJETO-RP) 

IF  (AX  GE.  0 0 AND.  AX  Lc  VCILL)  VF=VFO-  (VFO-VT  ) *AX  / XF I LL 

J *2 1 2 


230 


* 

* 


240 


IF  (VF  GT 
FORMAT ( /IX, 
/10X#  ' FUEL 
i El  I.  4 
IF  (VO  GT. 
FORMAT ( /IX# 


C 

C 

C 


C 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


320 


C 

c 

c 


* 

* 


5500.0)  WRITE<6,230)  VF#  INJ 

******************  warning  ********************* 

» 'NF0RTINJ»^EI4> ITY  APPR0ACHING  son1C  VELOCITY#  VF-' 

500.0)  WRITE(6#  240)  VO,  INJ 

'******************  WARN!NG  ******************** * 


/10X,  'OX  INJECTION 
* ' FOR  I NJ= ' , 14 ) 


VELOCITY  EXCESSIVELY  HIGH.  VX*',E11. 


300 

310 


CALCULATE  INTERFACIAL  SHEAR  STRESS  AND  DROPSIZE  (SCALING  FACTOR 

TAU I = ( XMU+FMU) /2  0* ( VF-VO) / (B-R JET) /1500  0 
RM=0.  0#XST/TAUI /32.  1739 

CALCULATE  NEW  X POSITION 

AX= AX+ASTEP 

IF  (AX  GT  XW(NXP))  GOTO  9100 
I DC  = IDC  + 1 

IF  (IDC  GT  200)  GOTO  9200 

CALCULATE  NUMBER  OF  DROPS  USING  RJET 

XMI=(RJET/RJET0)**2#ELXF 

XND=MAX  ( 1.  0.  AINT  <3.  1416*RJET/2  O/RM  ) ) 

VDR0P3=XND*0FACT*RM**3.  O 

VJETM=3.  141 6*RJET**2*ASTEP 

IF  < VJETM  GT  ( 2.  0*VDR0PS ) ) GOTO  300 

LAST  DROPLETS  FORMED.  JET  DISAPPEARS 

XND=MAX  ( 1.  0.  AINT ( VJETM/ VDRQPS#XND)  ) 

RM=(VJETM/XND/QFACT)**< 1 /3  ) 

RJET-O.  0 
GOTO  325 

ITERATE  WITH  TRUNCATED  CONE  FORMULA 
IF  NONCONVERGENT,  RETURN  INJ=-1 

ICNT=0 
RN=R JET 

0*4STEP#  (R  JET##2.  0+RJET*RN+RN**2>-VJETM+VDR0PS 
FP*3.  1416/3.  0*ASTEP* (R JET+2.  0*RN)  vukups 

RNN=RN-FX/FP 

IF  (ABS(RN-RNN)  LT.  0.  0005*RN)  GOTO  320 

ICNT=ICNT+1 

RN=RNN 

IF  ( ICNT  LT.  10)  GOTO  310 

GOTO  9300 

RJET=RNN 


OF  1500) 


325 


326 


CALCULATE  NDROPS/SEC  BASED  ON  CONTINUITY 

XMO=  <R JET/R JETO ) **2#ELXF 
DVF- (XMI-XMO) /xrho 
XND=DVF / ( OF ACT# RM*# 3 ) 

IF  < IAFLO  OT.  2)  WRITE  (6,  326) 

FORMAT (IX.  'AX.  VF,  VO,  T.  RM.  XND-'. 

IF  ( XND  LT.  1.0  OR  RJET  . LT. 
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AX.  VF.  VO,  TAUT.  RM.  XND 

4(F9.  4.  3X).  2 ( E12.  4,  3X) ) 
O 0)  GOTO  9400 


onn  non  non  n n n 


330 

350 

400 

410 

420 

450 

500 

600 

650 

700 

750 


VAPORIZE  DROPLET  IE  S^ILL  IN  CUP 

IF  < AX  . GE.  0 0)  GOTO  400 
VJ=<4.  0*V0+VF)/5.  0 
G1=VAPC/RM**1.  45/VJ**0.  75 
D1=-AX 

CALL  CVAP  (Gl.  D 1 . PV> 

VP=PV*XND*XRH0*QFACT*RM**3 
TXVM=TX  VM+VP 
EVXF=EVXF+VP 

RM= ( ( 1 . O-PV ) *RM**3) **< 1 0/3.  0) 

IF  (IAFLG  . GT  2)  WRITE(6.330)  <100.0*PV>,  RM 

FORMAT  ( 10X.  F6 .2,  '*/.  OF  DROP  VAPORIZED.  NEW  RM=',E12.  5) 
HGMR ( INJ)=EVXF/EFF 
IC  = 5 

CALL  DBL  INT  < PC.  HGMR ( IN J ) . IC.  RHO) 

IF  ( HGCD  . GE.  1.0)  GOTO  350 

HGCD= ( EFF+EVXF ) /<3  1 41 6* ( A**2-R JET**2) *RHO*VF ) 

GOTO  400 

VF= (EFF+EVXF)/ ( RH0*3  1 4 1 6* ( A**2-R JET**2 ) ) 

VFO=VF 

INSERT  INTO  LIST  IN  ASCENDING  ORDER 

IF  (RM  GT.  0 O)  GOTO  410 
IDC= IDC - 1 
GOTO  775 

IF  ( I DC  . GT.  1 ) GOTO  420 
1=1 

GOTO  700 

DO  450  1 = 1.  ( IDC-1 ) 

IF  ( ABS( R ( I ) -RM)  . LE.  0.  005*RM)  GOTO  500 
IF  ( R ( I ) . GE.  RM)  GOTO  600 
CONTINUE 
1=  I DC 
GOTO  700 

SIMILAR  SIZE  ALREADY  EXISTS 

VI =QFAC  T*R ( I ) #*3*XD ( I > 

VN=QFACT*RM**3*XND 
XD( I )=XD< I ) +XND 

R( I )=( ( VI+VN)/QFACT/XD( I ) ) ** ( 1 0/3.  O) 

RM=R( I ) 

I DC  = IDC-1 
GOTO  750 

MOVE  LARGER  DROPS  DOWN 

DO  650  K=IDC.  < I +1 ) . -1 
R(K) =R(K-1 ) 

XD ( K ) =XD  < K- 1 ) 

CONTINUE 
R ( I )=RM 
XD  < I ) = XND 

SUM  FOR  MEAN  VALUE  CALCULATIONS.  THEN  CONTINUE 

TND  < IN J ) =TND ( IN J ) + XND 
W=XND*QFAC  T*RM**3  J-214 


775 


vror=vTOT+vo*w 

RTOT=RTOT+VV 

IF  (RJET  GT  0 0)  GOTO  220 


CALCULATE  MEAN  QUANTITIES 

VMEAN= ( RTOT/TND < INJ ) ) 
RMEAN= ( VMEAN/QFACT > **( 1 . , 
AL < INJ) =( AX -RECESS ) /2  0 
VJ=VTOT/TND< INJ ) /VMEAN 
VFACT ( I NJ) = VAPC /VJ**0  75 

CALCULATE  MASS  MEDIAN 


AM=0  0 

CN=  TND  < INJ)  /2.  O 
DO  800  1 = 1,  I DC 
AM=AM+XD( I ) 

IF  (AM  LT  CN)  GOTO  800 
RMM=R ( I ) 

GOTO  810 
) CONTINUE 

) RMO ( INJ ) =RMM 

CALCULATE  DISTRIOUTION  (STANDARD  DEVIATION) 

SUM=0.  0 

VMM=QFACT*RMM**3 
DO  900  1 =1,  I DC 

IF  ( IAFLG  GT.  1)  WR  I TE ( 6,  820)  I , R < I ) . XD<  I ) 

V^-^;R{?^,,I3'5X'  /RM“''E10.4,5X,  'NDR0PS/SEC=',E11.5) 

SUM=SUM+ ( VDI -VMM ) **2*XD ( I ) 

CONTINUE 

SD=  (SORT (SUM/TND(  INJ)  ) /QFAC T ) **  (1.  /3.  ) 

SG ( I NJ ) = ( SD+RMM ) /RMM 

CORRECT  TND  TO  CONSERVE  MASS 

TND  < INJ  ) = ( EJ-XF-EFF*  ( HGMR  ( IN J ) -HCMRO ) )/  ( QFAC T *XR HO#R MM* * 3 ) / 

((0.  1 6 5/SG  ( INJ  ) #*3 ) +0.  67+ (0.  1 65#SG  ( INJ ) **3  ) ) 

FILL  INITIAL  DR0PSI2ES 

RMX  ( 1,  INJ)=Rm/SG(  INJ) 

RMX  (2.  I N J ) =RMM 

RMX (3,  INJ)=RMM*SG( INJ) 

DRP  ( 1,  I NJ)  =R  JET 0/2.  0 
DRP  (2,  INJ)=RJET0/2  0 
DRP  (3,  I NJ)  =R  JET  0/2  0 
DXV  ( 1,  I NJ ) = VJ 
DX V ( 2,  I NJ)  =VJ 
DXV  (3,  I NJ ) =VJ 
DRV  ( 1,  I NJ)  =0.  O 
DRV  (2,  I NJ)  =0.  0 
DRV  (3,  I NJ)  =0.  0 

IF  (IAFLG  GT.  O)  WRITE(6.  920)  INJ.  (RMO(  INJ)*304aOO  ) 

( RMEAN+304800.  ),  SG(INJ).  TND(INJ),  ( AL ( INJ ) #12*  0 ) VJ 
FORMAT  ( 5X,  'INJECTOR  NUMBER**  ',13,  /9X.  'MASS  ME^N(  MORONS) 

F7  2.5X.  'MASS  MEAN  (M I CRONS  )=  ' . F7  2.  8X  SIO^ ' F6  3 79X. 
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* 'NUMBER  OF  DROPS=  ' E 1 1 5.  7 X , ' ATOMI  ZAT I ON  LENGTH  <IN>='. 

* F6  3.  5X,  ' INJECTION  VELOCITY  <F/S)='.F6  2) 

1000  CONTINUE 

FCD=MIN(HGCD.  1 0) 

RETURN 

INJECTOR  SAME  AS  PREVIOUS 


1100  RMO( INJ )=RMO< INJ-1 ) 

SG ( INJ ) =SG ( INJ-1 ) 

TND( INJ)=TND( INJ-1  ) 

AL( INJ) =AL( INJ-1) 

VFACT ( INJ)=VFACT( INJ-1  ) 

HGMR ( I N J) =HGMR ( INJ-1 ) 

TX VM=T  XVM+ ( HGMR ( INJ) -HGMRO ) *FMF (INJ) 
GOTO  910 


ERROR  CONDITION.  ABORT  RUN 


9000  WR I TE  ( 6 . * ) 'POW  NOT  CONVERGENT  IN  SHEAR.  POW='.POW.  ' F,OR  INJ='.INJ 


X=-l.  0 
RETURN 

9100  WRITE! 6, *) 
X=-2  0 
RETURN 

9200  WR I TE ( 1 . * ) 
X = -3  0 
RETURN 

9300  WRITE (6. *) 
X=— 2.  0 
RETURN 

9400  WRITE (6.  *) 

# 


'AX  BEYOND  THROAT  IN  SHEAR  FOR  INJ=MNJ.  ' RUN  STOPPED' 

'MORE  DROPS  PRODUCED  THAN  DIMENSIONED  FOR.  RUN  STOPPED' 

'RJET  NOT  CONVERGENT  IN  SHEAR.  RJET='.RN.  ' FOR  INJ='.INJ 

'LESS  THAN  1 DROP  FORMED  OF  NEG  RJET.  XND.  R JET= XND. 
RJET 


X = -4  0 
RETURN 
END 
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SUBROUTINE  CVAP  (Dl,  G 1.  V) 


CALCULATES  CHANGE  IN  DROP  RADIUS  DUE  TO  EVAPORATION  IN 

INJECTOR  CUP.  BASED  ON  PRIEM-HEIDMANN  GENERALIZED  LENGTH  CORRELATION 


♦INSERT  COMMON 
C 

C LOCAL  BLOCK  COMMON  ONLY 

C 


C 


* 

* 


* 

* 


COMMON  /VFRAC / GLC41)*  F(41) 

DATA  GL  /O.  0.  01j  02*  04*  06.  1 . 2.  . 4.  . 6.  1 . , 1 . 5.  2.  . 3.  , 4.  , 5 , 6.  .7 
8.  . 9 , 10.  , 13.  , 15.  , 17.  , 20  , 23.  . 25.  . 28.  , 30  , 33  . 35  , 38  , 40 
45  . 50  . 55  . 60  . 70.  , 80.  , 90  . 100.  .110  / 

DATA  F /O  0,  0008,  003,  . 009,  016,  . 031.  . 055.  . 123.  . 173.  26.  . 343, 

418,  522,  60,  66,  706.  . 746,  . 779.  . 804.  828,  879,  . 902. 

92,  94,  955,  . 963,  . 972,  976,  . 982.  985.  . 9885.  . 9905. 

994,  996.  9973.  . 9982,  9992,  . 9996.  . 9998.  . 9999,  1.  0/ 


IF  (ITRACE  . EQ.  2)  WRITE(6,  1) 
1 FORMAT  (/IX,  'ENTER  CVAP') 


CALCULATE  GENERALIZED  LENGTH,  GLEN 
GLEN=0.  0137466*D1 /CR**0.  44*G1 


VAPORIZATION  INTERPOLATION  CALCULATION 

IF  (GL  ( 1 ) . GE.  GLEN)  GOTO  150 
IF  (GLEN  . GE.  GL(4 1 ) ) GOTO  175 
DO  125  1=2.41 

IF  (GLEN  GT.  GL ( I ) ) GOTO  125 

V=F ( 1-1 ) + (GLEN-GL( 1-1 > ) / (GL ( I ) -GL( I -1 ) ) # (F ( I ) -F ( I- 1 ) ) 
RETURN 

125  CONTINUE 
150  V=F ( 1 ) 

RETURN 
175  V=F (41 ) 

RETURN 

END 
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SUBROUTINE  SWIRL 


C 

C PROGRAM  TO  CALCULATE  DROPLET  FORMATION  FOR  HOLlOW  CONE  SWIRLER  COAXIAL 

C AND  IMPINGING  TRIAXIAL  INJECTORS.  RETURNS  MASS  MEDIAN  DROPSIZE,  NUMBER 

C OF  DROPS/SEC.  USES  A DISTRIBUTION  PARAMETER  OF  2.  3 

C 

C OUTPUTS: 

C RMM=MASS  MEDIAN  DROPLET  RADIUS,  FT 

C TND=TOTAL  NUMBER  OF  DROPS  OF  GENERATED  BY  ELEMENT 

C SG=DISTRIBUTION  PARAMETER 

C AL=MEAN  ATOMIZATION  LENGTH,  FT 

C VJ=MEAN  INJECTION  VELOCITY,  FT/SEC  IN  THE  FORM  OF 

C VFACT,  THE  VAPORIZATION  FACTOR  IN  LGEN 

C 

C ERROR  CONDITIONS: 

C X =— 1 ITERATION  NOT  CONVERGED  AFTER  20  LOOPS 

C 

♦INSERT  COMMON 
C 

IF  (ITRACE  EG.  2)  WRITE(6,  1) 

1 FORMAT (/IX, 'ENTER  SWIRL') 

VAPC=PC**0.  66/ ( 1 0-(XTJ+460.  ) / ( XTC +460.  ) ) **0  4 /XHV**0.  B/XMW**0. 35 
FFACT= 1 . O 

IF  ( ITYPE  EG.  3)  FFAC T=<  1 . O-PFI / 1 00.  0 ) 

LOOP  THROUGH  ALL  INJECTORS 
DO  500  INJ=1 , NEL 

IF  (XMF(INJ)  EG.  XMF(INJ-l)  AND.  FMF(INJ)  EG.  FMF  ( IN  J-l  ) ) 

* GOTO  600 

INITIALIZE  SIZES 
A=RFP 

B=R  XP+TPOST 
EFF=FMF ( INJ ) *FFACT 
ELXF=XMF< INJ)-FMF( INJ)*HGMR0 
EVXF=EFF*HGMRO 
HGMR ( INJ)=HGMR0 

CALCULATE  FUEL  AND  OX  VELOCITIES 

VF= ( EFF  +EVXF ) / ( FCD*FRH0*3.  1416* ( A**2-B**2) ) 

V0=ELXF/(XCD*XRH0*3.  1416*RXP**2> 

IF  <VF  GT.  5500.0)  WRITE(6,50)  VF 

50  F0RMAT< /IX,  '******************  WARNING  ********************'» 

* /10X,  'FUEL  INJECTION  VELOCITY  APPROACHING  SONIC  VELOCITY.  VF= ' 

* » Ell.  4,  ' FOR  I NJ=» ' , 14) 

IF  (VO  . GT.  500.0)  WRITE(6,  60)  VO 

60  FORMAT( /IX.  '******************  WARNING  ********************'. 

* /10X,  'OX  INJECTION  VELOCITY  EXCESSIVELY  HIGH,  VX=',E11.4 

* , ' FOR  I NJ= ' , 14) 

CALCULATE  MOMENTUM  ANGLE 

PS  I -AT  AN ( ( VO*ELXF*SIN(CSA)  )/( ( EFF+EVXF ) *VF+ELXF  *VO*COS ( CSA ) ) ) 
CALCULATE  ATOMIZATION  LENGTH 

ALEN=1.0  J-218 


o o o 


ICNT=0 

FI =SIN ( PSI ) /12  O/RXP 

F2=50.  6970*RXP*XCD#  ( XRHO+VO/XMU  ) *#0  2 
FX  = ALEN**0.  8+F1 #ALEN**1  8-F2 
FP=0.  8*ALEN**(-0.  2)  +1.  8*F1*ALEN**0  8 
ALENN=ALEN-FX/FP 

IF  (ABS ( ALEN-ALENN)  LE.  0 001*ALEN)  GOTO  200 

ICNT=ICNT  + 1 

ALEN=ALENN 

IF  ( ICNT  LT  10)  GOTO  100 
GOTO  9000 

CALCULATE  TCRIT  AND  RMM 


C 

c 

c 


200 


TCRIT-6  0#XCD*RXP/< 1. 0+SIN(PSI  ) +ALEN/12 

RMM=0.  62035*TCR  I T/ 1 2 0 

RMO ( INJ ) =RMM 

AL  < INJ) =ALEN 

VJ=VO*COS(PSI ) 

VFACT( INJ)=VAPC/VJ**0  75 
SG  < INJ) =2  3 


O/RXP) 


CALCULATE  TND  TO  CONSERVE  MASS 


C 

C 

C 


300 


400 


* 

* 

* 


TND  < INJ ) = ( ELXF-EFF* ( HGMR ( IN J ) -HGMRO ) ) / ( 4.  18B8*XRH0*RMM**3) / 
<<0  165/SG  < INJ)**3)+0.  67+  ( 0.  165*SG ( INJ > *#3 ) > 

FILL  INITIAL  DROPSIZES 

RMX  ( 1,  I NJ ) =RMM/SG ( INJ) 

RMX  (2,  INJ)=RMM 
RMX (3.  INJ)=RMM*SG( INJ) 

DRP  ( 1.  INJ)=ALEN*SIN (PSI ) 

DRP (2.  I NJ) *ALEN#SIN (PSI ) 

DRP  (3>  I N J ) = ALEN  #SI  N ( PS  I ) 

DXV ( 1 . I NJ ) = VJ 
DXV(2,  INJ)=VJ 
DXV(3,  I N J ) = VJ 
DR  V ( 1 » INJ)=VO*SIN(PSI ) 

DRV  ( 2.  I NJ)=VO*SIN(PSI ) 

DRV(3<  I NJ)  *VO*SIN(  PSI  > 

IF  ( IAFLG  GT.  0)  WRITE(6.400>  INJ,  (RMO  (INJ)  *304800.  ), 

FnPMAT/sv  , TK,  ,cr^-r««C<INJ>'  TND  ( 1 NJ  > ' < AL  ( I N J ) * 1 2.  O ) . VJ 

F0RMAT(5X,  INJECTOR  NUMBER=  M3,  /9X , 'MASS  MEDIAN  (MICRONS)*  ' 
F7.  2,  6X,  SIGMAG*  ',  F6.  3,  5X,  'NUMBER  OF  DR0PS=',E11  5 
/9X,  'ATOMIZATION  LENGTH  ( IN ) = ',  F6.  3,  5X, 

'INJECTION  VELOCITY  ( F/S  ) * ' , F6.  2 ) 


C 

C 

C 


500  CONTINUE 
RETURN 

INJECTOR  SAME  AS  PREVIOUS 


600  RMO( IN J )=RMO( I NJ— 1 ) 

SG ( INJ ) =SG ( INJ- l ) 

TND( IN J)=TND( INJ-1 ) 

AL ( INJ ) =AL ( INJ-1 ) 

VFACT ( INJ) =VFACT( INJ-1 ) 

HGMR ( INJ) -HGMR ( INJ-1) 

TX VM=T  X VM+ ( HGMR ( IN J ) -HGMRO ) *FMF ( IN J ) 
GOTO  300 
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ERROR.  ABORT  RUN 

9000  WR I TE ( 6. * ) 'ALEN  NOT  CONVERGENT  IN  SWIRL.  ALEN=  ' . ALEN. 
* ' FOR  I N J= ' . INJ 

X*-l.  0 
RETURN 
END 
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noon  non 


SUBROUTINE  RFILL 


r 

C SUBROUTINE  TO  CALCULATE  RECIRCULATION  ZONE  FEATURES 

C 

♦INSERT  COMMON 

IF  (ITRACE  EQ.  2)  WRITEI6,  1) 

1 FORMAT (IX.  'ENTER  RFILL') 

C 

C CALCULATE  STREAMTUBE  100*/.  ERE  C*  AND  COMBUSTION  ZONE 

C GAS  VELOCITY  STORE  IN  COM!  1,  NEL)  AND  COM<  2.  NEL ) 

C INITIALIZE  PREVAPORIZED  OX  FROM  HOT  GAS,  STORE  IN  COMO,  NEL) 

C 

IC=5 

CALL  DBLINT (PC,  HGMR(l),  IC,  FRHO ) 

IC=6 

DO  lOO  INJ= 1 , NEL 

VMR=XMF  < INJ ) /FMF ( IN J) 

CALL  DBLINTIPC.  VMR , IC,  C0M!1,INJ)) 

VF=FMF  ( INJ)  *!  1.  0-H-iGMR(  INJ)  ) /FRHO/ 

!FCD*3.  1 4 16*  ( RFP **2-R XP**2 ) ) 

VX=  < XMF  < INJ  )-FMF<  INJ)*HGMR  < INJ)  ) /XRHO/<  XCD*3.  1416*R^P**2) 

IF  <VF  GT.  5500.0)  WRITE (6,  50)  VF 

FORMAT! /IX,  '******************  WARNING  ********************', 
/10X,  'FUEL  INJECTION  VELOCITY  APPROACHING  SONIC  VELOCITY,  VF= ' 
, F8.  2,  ' FOR  INJ»',  14) 

IF  (VX  GT.  500  0)  WRITE(6,  60)  VO 

FORMAT! /IX,  '******************  WARNING  ******************** 
/10X,  'OX  INJECTION  VELOCITY  EXCESSIVELY  HIGH,  VX=',F8  2, 

' FOR  IN J= ' , 14) 

COM ! 2,  INJ)  = (VF*8.  0*VX)/9.  0 
COMO,  I NJ)  =HGMR  ! INJ ) *FMF(  INJ) 

100  CONTINUE 

STEP  IN  X UNTIL  CHAMBER  CROSS-SECTION  IS  FILLED 
X=0.  O 

200  X=X+XSTEP 

CALL  GRIDGEN 

IF  (RWALLX  .LE.  0.0)  GOTO  8000 

AXC*3  1 416*RWALLX**2*( i.  0-CFL0W/(TFF+TXF) ) 

CALL  MVAP 

CALCULATE  RFUEL  FOR  EACH  ELEMENT,  STORE  IN  ERPOS  AND  SUM 
STORE  OX  VAPOR  IN  COM! 3,  INJ) 

AFILL=0.  O 
DO  300  INJ=1,  NEL 

COMO,  I N J ) =COM ! 3,  INJ)+XVM!1,  INJ)+XVM!2,  INJ)+XVM!3,  INJ) 

VMR=C0M!3,  INJ) /FMF!  INJ) 
smr=8  O 
IC  = 6 

CALL  DB L INT ( PC , VMR,  IC,  CS) 

ERE=CS/ COM ! 1 , INJ) *<  FMF ! INJ ) +COM ! 3,  INJ) ) / ! XMF ! IN J ) +FMF ! INJ) ) 
RH0=0  0 
IC  = 3 

CALL  DBLINT !PC-  SMR,  IC.  RHO) 

DA-1.  1 25*COM  < 3,  INJ ) /RHO /COM  < 2,  INJ) 

RC0RE=0  0 

IF  < ITYPE  EQ.  1)  RCORE=MAX  !0.  O,  !RXP-RXP/2  O/AL!  INJ)* 

* ! X-t-RECESS)  ) ) 
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«- 


50 

* 

* 

60 

* 

* 


RCG=SQR T (RC0RE**2+DA*ERE/3  1416 ) 

RF  = SQRT  < RCG**2-MFMF  < INJ>*<  1.  0+-HGMR  ( INJ)  )-0.  125*C0M(3.  INJ)  )* 

* < RFP**2- ( RXP+TP OST ) **2 ) /(FMF(INJ)*( 1.  O+HGMR ( INJ) ) ) > 
ERPOS<  I NJ)  =3.  14  16*RF**2 

AF I LL=AF I LL+ERPOS(  INJ) 

300  CONTINUE 
C 

C ACCELERATE  PARTICLES  IN  STREAMWISE  DIRECTION 

C 

CALL  DMTUBE 

IF  (X  LE.  0 0)  GOTO  8100 
PF ILL=AFILL/AXC*1 00.  0 
C 

C CHECK  FOR  FILLED  CHAMBER 

C 

IF  ( IRFFLG  . GT  0)  WRITE(6,310)  X,  PFILL 
IF  (IRFFLG  GT  0)  WRITE(7.310)  X, PFILL 
310  FORMAT  < //10X.  'AT  AXIAL  POSITION  X=  ' . F7  4,  F7  2,  '7.  OF  CROSS-SECTION' 

* , ' IS  FILLED ' ) 

IF  (IRFFLG  GT.  0)  CALL  MR TUBE 
IF  (PFILL  LT.  100.  0)  GOTO  200 
C 

C CROSS  SECTION  FILLED.  CALCULATE  APPEARENT  INJECTOR  LOCATION 

C DISTRIBUTE  MASS  INTO  GRID 

C 

IN JF=NEL+ 1 
REDG£=RWALLX 

FF  ACT  = 1 00.  O/PF  ILL/  ( 1.  0-CFL0W/(  TFF+TXF)  ) 

DO  1000  IROW=NROWS,  1. -1 
INJL=I N JF— 1 

INJF=IN JL-NELR ( IR0W)+1 
ASUM=0.  0 

DO  320  INJ= INJF . INJL 

ERPOS ( INJ)=ERPOS ( INJ ) *FFACT 
ASUM=ASUM+ERPOS( INJ) 

320  CONTINUE 

RO=SQRT  (MAX  <0.  0.  <REDGE**2-ASUM/3.  1416)  ) ) 

RPOS=RO+  (REDGE-RO)  /2.  0**0.  5 

IF  (NELR(IROW)  . EQ.  1 .AND.  RO  . LT.  1.0E-5)  RP0S=0.  0 
C 

C LOCATE  SEG(S)  TO  ADD  MASS  TO 

C 

R 1=0.  0 

DO  330  J=l.  NSFG 
R2=RGRID< J) 

IF  (RO  GE  R 1 AND.  RO  LT.  R2)  GOTO  340 
R 1=R2 

330  CONTINUE 

GOTO  9000 
340  IR 1 = J 

DO  350  J=IR 1 . NSEG 
R2=RGRID( J) 

IF  (REDGE  GT  R1  AND  REDGE  LE.  R2)  GOTO  360 
R 1=R  2 

350  CONTINUE 

GOTO  9100 
360  IR2= J 

IF  (IRFFLG  GT  1)  WRITE(6.  370)  IRON.  RO,  REDGE,  IR1,  IR2 
370  FORMAT  ( /5X,  'INJECTOR  ROW  13,  ' CONFINED  BETWEEN  R=  'F7.  4, 

* ' AND  F7 .4,  /10X,  'THIS  CORRESPONDS  TO  SECS  '.13,  ' THRU  ',13) 
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r 

C LOCATE  SFREAMTUBE  SLICE  BOUNDARY  AND  CORRESPONDING  SLICE(S) 


C 

c 

c 


400 

410 


420 

430 

440 

* 

* 


T 1 = 0 0 
I T2  = 1 

DO  500  I NJ=  I NJF . IN  JL 
STXVM=C0M<3,  INJ) 

T2=T 1 +ERPOS < INJ) /ASUM*360.  O 
DO  400  J=IT2, NSL ICE 

IF  ( ( THET A*J ) GT.  T1 ) GOTO  410 
CONTINUE 
GOTO  9200 
I T 1 = J 
J=N5L ICE 

IF  < T2  GT  360.  0 AND.  (T2-360.  O)  . LT 
DO  420  J = I T 1 . NSL I CE 

IF  ( ( THETA*J)  GE  T2 ) GOTO  430 
CONTINUE 
GOTO  9300 


1.0E-4)  GOTO  430 


I T2=  J 

IF  ( IRFFLG  . GT.  1)  WRITE<6,  440)  INJ.  Tl.  T2,  ITl',  IT2 
FORMAT( / 10X.  'INJECTOR  14.  ' CONFINED  BETWEEN  THETA='.F6  2. 

AND  ',F6.2,  /10X.  'THIS  CORRESPONDS  TO  SLICES  '.13 
' THRU  '.  13) 


DISTRIBUTE  MASS  TO  GRID 


490 


460 

* 

* 

470 


IF  ( IR1  NE.  IR2  . OR. 
XGRIDUT1,  IR1  )=XGRID( 
H0RID(IT1,  IR1 )~HGRID< 
GOTO  490 


ITl  . NE.  IT2)  GOTO  450 
ITl,  IR1 >+STXVM 
ITl , IR1 >+FMF< INJ) 


RS»REDGE**2-R0**2 

TS-T2-T1 

RB-RO 

RFACT-1.  0 

DO  470  ISECMR1.  IR2 
RG«RGRID( ISEG) 

IF  (ISEG  EO.  IR2)  RG=*REDGE 
RFACT*(RC**2-RB**2)/RS 
RB«RORID< ISEG) 

TB-T1 


TFACT=1  0 
DO  470  ISL*IT1. IT2 
ANG=ISL*THETA 
IF  (ISL  EG.  IT2)  ANG=T2 
SFACT= ( ANG-TB ) /TS 
TB=ISL*THETA 


FADD=SFACT*RFACT*FMF< INJ) 

XADD=SFACT«RFACT*STXVM 

HGR ID ( ISL.  ISEG ) =HGR ID < ISL,  ISEG ) +FADD 

XGR ID ( ISL.  ISEG )=XGRID( ISL,  ISEG)+XADD 

Iool^FFL°  GT  2>  ^ 1 TE(6,  460  ) INJ,  FADD,  XADD.  ISL,  ISEG 
FORMAT  ( 10X , 'INJECTOR  ' . 13.  ' ADDS  '.Ell  4. 

LB/S  OF  FUEL  AND  '.Ell  4.  ' LB/S  OF  OX  TO  ', 
'SLICE,  SEG=  ' , 13,  12) 

CONTINUE 


CALCULATE  APPEARENT  INJECTOR  LOCATION  AND  DROPLET  CHARACTERISTICS 


490  ERPOSC INJ)=RPOS 
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ODD  nnn  non 


ETPOS ( IN J ) - ( T2+T 1 >/2  0 

IF  (IRFFLG  GT.  1)  WR ITE <6,  495) INJ.  ERPOS< INJ > , ETPOS< INJ) 
495  FORMAT ( 1 OX.  'INJECTOR  13,  ' HAS  AN  APPEARENT  LOCATION  OF 

* 'R,  THETA=  ' , F7.  4,  F7  2) 

T1=T2 

DR1=DRP<  1,  IN J ) /RFP* ( REDGE-RO ) /2  0 
DR2=DRP  < 2,  INJ) /RFP# ( REDGE-RO )/2.  0 
DR3=DRP  < 3,  IN J ) /RFP* ( REDGE-RO ) /2.  0 
DRV ( 1 , IN J ) = ( DR1-DRP ( 1 , INJ ) ) / ( X-AL( INJ) ) 

DRV ( 2,  INJ)  = < DR2-DRP ( 2,  INJ) ) / ( X-AL( INJ) ) 

DRV (3,  IN J ) = < DR3-DRP ( 3,  I N J ) ) / ( X-AL ( IN J ) ) 

DRP  ( 1,  INJ  )=DR  1 
DRP ( 2, I N J ) =DR2 
DRP  < 3,  INJ)=DR3 
500  CONTINUE 
REDGE=R0 
1000  CONTINUE 

DISTRIBUTE  COOLANT  FLOW  UNIFORMLY 

IF  (CFLOW  . LE.  0.0)  GOTO  1100 
CHPS=CFLOW/ < 1 . O+CFMR ) /NSEG/NSL ICE 
CXPS=CFLOW*CFMR/( 1 . O+CFMR ) /NSEG/NSLICE 
DO  1050  1=1, NSLICE 
DO  1050  J= 1 , NSEG 
HGR  ID(  I , J)  =HGR I D ( I,  J)+CHPS 
XGRID(  I.  J ) = X GR I D ( I , J)+CXPS 
1050  CONTINUE 

CALCULATE  MEAN  GAS  PROPERTIES  AND  PRINT  FULL  MR  DISTRIBUTION 

1100  OVMR=T  X VM/ THVM 
IC  = 1 


CALL 

DBLINT 

(PC* 

OVMR, 

IC, 

CT) 

IC=2 

CALL 

DBLINT 

(PC  * 

OVMR , 

IC. 

GMW  > 

I C = 5 
CALL 

DBLINT 

(PC* 

OVMR, 

IC, 

GRHO ) 

I C =7 
CALL 

DBLINT 

(PC* 

OVMR, 

IC, 

GMU ) 

GXV( 1 )=(TXVM+THVM) /GRHO/AXC 
RETURN 

ERROR  MESSAGES 

8000  WRITEI6, #) 'ERROR  FROM  GRIDGEN,  RUN  STOPPED' 

X = — 1 0 
RETURN 

8100  WRITE(6, *) 'ERROR  FROM  DMTUBE,  RUN  STOPPED' 

RETURN 

9000  WR I TE ( 6, * ) 'ERROR  IN  RF ILL,  INNER  EDGE  NOT  FOUND  FOR  ROW=', IROW 
WR  ITE (6,  *)  'RO,  RGR  I D=  ' , RO.  RGRID 
X = -l  0 
RETURN 

9100  WR I TE ( 6, * ) 'ERROR  IN  RF ILL,  OUTER  EDGE  NOT  FOUND  FOR  ROW=',  IROW 
WR  ITE  < 6,  * ) 'REDGE,  R GR  I D=  ',  REDGE,  RGR  ID 
X = — 1.  O 
RETURN 

9200  WR  I TE  ( 6,  * ) 'ERROR  IN  RFILL,  FIRST  SLICE  NOT  FOUND  FOR  ROW=*',  IROW, 
* 'ELEM£NT=  ' , INJ,  'THFTA=',T1 
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x = -l  0 

RETURN 

9300  WRITE<6,  *)  'ERROR  IN  RFILL,  END  SLICE  NOT  FOUND  FOR  ROW  = 
* 'ELEMENTS',  INJ,  ' THETA=  ' . T2 

X = — 1 . 0 
RETURN 
END 


. I ROW, 
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SUBROUTINE  DMTUBE 
C 

C SUBROUTINE  TO  ACCELERATE  DROPS  DUE  TO  DRAG  ACCELERATIONS 

C USED  IN  STREAMTUBE  ONLY 

C 

♦INSERT  COMMON 

IF  (ITRACE  EQ.  2)  WRITEI6. 1) 

1 FORMAT  < /I  X . 'ENTER  DMTUBE') 

IF  (IDMFLG  . GT.  0)  WRITE (6.  2) 

2 FORMAT ( /IX ) 

C 

C LOOP  THROUGH  FOR  ALL  INJECTORS  AND  DROPSIZES 

C 

TVMR=-1  0 
DO  1000  IN J=1 , NEL 
C 

C CALCULATE  STREAMTUBE  PROPERTIES 

r 

TVMRN=COM( 3. INJ ) /FMF < INJ ) 

IF  ( ABS ( TVMRN-TVMR ) LE  0.  1)  GOTO  100 

TVMR=TVMRN 

IC  = 3 


CALL 

DBLINT 

(PC* 

TV  MR, 

IC* 

GRHO  ) 

IC*7 

CALL 

DBLINT 

(PC* 

TVMR. 

IC* 

GMU) 

lOO  DO  1000  IRM=1 . 3 

IF  < RMX < IRM.  INJ)  LE.  0.0)  GOTO  1000 


C 

C 

C 

C 

C 

C 

C 


C 

C 

C 


"EXPAND"  DROPLET  TO  SUPERCRITICAL  PROPORTIONS 

RM=RMX(  IRM.  INJ)* ( XRHO/XRHOC  ) **(  1 . /3.  ) 

CALCULATE  RELATIVE  QA8  VELOCITY.  DRAG  AND  ACCELERATION 
COMBUSTION  ZONE  ©AS  VELOCITY  STORED  IN  C0M(2.NEL> 

RP»DRP<  IRM.  INJ) 

RGV»SORT<  <C0M<2,  INJ)-DXV( IRM,  INJ) )**2+DRV<  IRM.  INJ>**2> 
DVM»SQRT(DXV( IRM, INJ ) **2+DRV ( IRM. INJ>**2> 

IF  (RCV  . LT  1.0)  GOTO  1000 

OZ”X STEP #SGR T < 1 . 0+(DRV( IRM,  INJ)/DXV< IRM.  INJ) >**2> 
ICNT-0 

CALL  DRAG  (RM,  C0M<2.  INJ).  DVM.  RCV.  DZ.  ACC) 


MOVE  DROPLET 

DXVN=C0M<2,  I NJ)  - ( COM ( 2,  INJ)-DXV< IRM.  INJ) )*ACC 
DRVN=DRV < IRM.  INJ ) *ACC 

DZN=XSTEP*SQRT(  1. 0+(  ( DRV  < IRM,  INJ  ) +DRVN)  / ( DXV  ( IRM,  INJ)+DXVN 
**2) 

IF  ( ABS < DZN-DZ  ) . LE.  0.  01*DZ)  GOTO  180 

DZ=DZN 

ICNT=ICNT+1 

IF  ( ICNT  . GT.  10)  GOTO  9000 
GOTO  173 

DRP ( IRM,  I NJ ) =RP+ ( DRV ( IRM.  INJ)+DRVN)/ ( DXV ( IRM,  INJ)+DXVN) 
h *XSTEP 

DXV ( IRM,  I NJ ) =DX VN 
DRV ( IRM, INJ ) =DRVN 

IF  ( DXV< IRM,  INJ)  . LT  0.0)  GOTO  9100 
IF  (DXV< IRM, INJ)  GT.  C0M(2, INJ))  GOTO  9200 
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non 


* IF  <IDMFLG  GT  WR I TE  ( 6,  200 ) IRM,  INJ.  OP,  DRP  ( IRM,  IN  J ) , 

200  FORMAT  C 1 X ' DRDP  1™«iNJ> ' DRV  < 1™'  ™J  > , COM  ( 2,  INJ  > 

FORMATUX,  DROP  II  ' FROM  INJ-M3,'  MOVED  RADIALLY  ', 

* 'RAH^AI  J^3‘r  Cl°  ’F7  3‘  ' WITH  NEW  AXIAL  AND  '' 

1000  CONTINUE  7 2'  ''  '<F7  2'';  GAS  VELOCITY*',  F7.  2 ) 

RETURN 


ERROR  CONDITION 

’oo^y*’  for  ,nj’  ***  ••  ■■  **»■ 

X 1.0 

return 

9100  WRITE (6,  *)  'DROP  ACCELERATED  TO  NEGATIVE  VELOCITY  AT  X~  ' X 

* __  ' INJ,  IRM*',  INJ,  IRM,  ' ACC*',  ACC  ' *' 

X*  1.0 

RETURN 

9200  WRITEI6, *)  'DROP  ACCELERATED  BEYOND  GAS  VELOCITY  AT  X*'  X 
^ ' INJ,  IRM*',  INJ,  IRM,  ' ACC*',  ACC 

RETURN 

END 
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SUBROUTINE  MRTUBE 

SUBROUTINE  TO  CALCULATE  VMR  FOR  STREAMTUBES  AS  A FUNCTION  OF  X 


INSERT  COMMON 

D I MENS  I ON  OUT (10) 

IF  (ITRACE  . EQ  2)  WRITE<6. 1) 

1 FORMAT! /IX j 'ENTER  MRTUBE ' ) 

WRITE (6,  2) 

2 FORMAT (/IX ) 

CALCULATE  VMR  FOR  STREAMTUBES  10  AT  A TIME 


100 


150 

175 


NL  1 = 1 


NLL=NLl+9 

IF  (NLL  GT.  NEL)  NLL=NEL 
ICNT=0 

DO  150  INJ=NL 1 > NLL 
ICNT=ICNT+1 


OUT ( ICNT )=- 1 0 

IF  (COMO.  INJ)  GT  0.0)  OUT  ( ICNT)  =99.  99 
IF  (FMF(INJ)  . GT.  0 0)  OUT ( ICNT ) =COM ( 3.  INJ ) /FMF ( IN J ) 
CONTINUE 

uo ITE( 6.  175)  NL1.  NLL.  <OUT( I > . 1-1  * ICNT  ) 

F0RMAT(5X,  'TUBE  MR  FOR  INJ=  ' . I 3<  ' ~ ' * 13.  4X . 10(  F 5.  2.  4X  ) ) 
IF  (NLL  . EQ.  NEL)  RETURN 


NL1=NLL+1 


GOTO  100 
END 


SUBROUTINE  GRIDGEN 
C 

C SUBROUTINE  TO  GENERATE  COMPUTATION  CELLS  AT  X AND  RETURNS  RUALLX 
♦INSERT  COMMON 

IF  (ITRACE  EQ.  2)  WRITE(6,1) 

1 FORMAT (/IX,  'ENTER  GRIDGEN') 

C 

C CALCULATE  RWALL  AT  X 

C 


C 

c 

c 

c 

c 

c 

c 


DO  100  1=2 , NXP 

IF  ( XW ( I ) GE  X ) GO  TO  110 
100  CONTINUE 

IF  (IEFLG  EQ  0)  GOTO  300 
GOTO  990 


no 


RWALL X -RW ( 1-1 ) + ( R W ( I)-RW(I-1 
ANGLE X=WANGLE< 1-1 ) 


) )/<XW(I)-XW(I-l))*(x-XW(I-l) 


) 


CALCULATE  SLICE  ANGLE  IN  DEGREES 

NB:  TRIG  FUNCTIONS  REQUIRE  RADIAN  INPUTS 

120  THETA=360.  O/NSLICE 


CALCULATE  NSEG  EQUAL  AREA  RADIAL  AREAS 


C 

C 

C 


ASEG=R WALL  X**2 /NSEG 
RGRID ( NSEG ) =R WALLX 
DO  200  1=1, (NSEG-1 ) 

RGR ID( I )=SQRT( FLOAT 
200  CONTINUE 
RETURN 


I) /FLOAT (NSEG) ) *RWALLX 


NEXT  STEP  MOVES  PAST  THROAT 


300  XP  = X— X STEP 

XSTEP 1 =XW( NXP ) — XP 

IEFLG^l^1  ^ XSTEP  °R  XSTEP1  LE  0)  GOTO  990 
X=XW( NXP ) 

XSTEP= XSTEP 1 
RWALLX=RW ( NXP ) 

ANGLEX  =WANGLE ( NXP- 1 ) 

GOTO  120 
C 

C ERROR 

C 

9,0  r"Illx=o  o1’"*  X BEV0ND  rHR0AT  IN  0RID(SEN-  x'  XUINXP > = 

RETURN 

END 


X,  XW(NXP) 
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SUBROUTINE  MVAP 


C CALCULATES  CHANGE  IN  DROP  RADIUS  DUE  TO  EVAPORATION 

C BASED  ON  PR IEM-HEI DMANN  GENERALIZED  LENGTH  CORRELATION 

C 

♦INSERT  COMMON 
C 

C LOCAL  BLOCK  COMMON  ONLY 

C 

COMMON  /VFRAC/  GL(41).  F(41) 

DATA  GL  /O  Oi  01.  02.  . 04.  06.  1 . 2.  4.  6.  1 . 1 5.  2 . 3 , 4.  . 5.  . 6.  . 7 

* 8.9.  10  . 13  .15.17.  20  . 23.  . 25.  . 28.  . 30  . 33  . 35  . 38.  . 40 

* 45  , 50.  , 55  , 60  , 70  . 80.  , 90.  , 100  . 1 10.  / 

DATA  F /O  O,  0008.  003.  009,  016,  031.  055,  123,  173.  26.  343. 

* 418,  522,  .60,  66,  . 706,  . 746,  . 779.  . 804.  828,  879,  902, 

* .92.  94,  955,  963.  . 972,  . 976,  . 982.  . 985,  . 9885,  9905, 

* 994,  . 996,  . 9973,  . 9982,  . 9992,  9996  , 9998.  9999,  1.  0/ 


C 

IF  (ITRACE  EG  2)  WRITE<6, 1) 

1 FORMAT (/IX,  'ENTER  MVAP  ' ) 

C 

C LOOP  THROUGH  ALL  ELEMENTS  AND  DROPSIZES 

C 

DO  500  INJ=1. NEL 
DO  500  I RM= 1 , 3 
XVM ( IRM.  INJ  )=0.  0 
IF  (X  . LE.  AL(INJ))  GOTO  500 
IF  (RMX < IRM,  INJ ) . LE.  0.0)  GOTO  500 

C 

C FIX  CANT  ANGLE,  A.  TO  0 

C 

A=0  O 
C 

c CALCULATE  RMO 

C 

RMI =RMO ( INJ) 

IF  (IRM  EG  1)  RMI=RMI/SG( INJ) 

IF  (IRM  EG.  3)  RMI=RMI*SG( INJ) 

XND=0.  67 *TND  ( INJ) 

IF  (IRM  . N£  2)  XND“0.  165*TND< INJ) 

XO=AL( INJ) 

C 

C CALCULATE  GENERALIZED  LENGTH.  GLEN 

C 

IF  (X  . GT.  (XO+XD)  GOTO  50 

D1=X-X0 

D2=0  O 

GOTO  60 

50  D1=X1-X0 

D2=X-X1 

60  G1=VFACT ( INJ ) /RMI**1  45/C0S( A)**0.  73 

G2=0.  0137466*  <D1  /CR**0.  44+0.  83*D2/(CR**0.  22* 
* ( ( 1.  0 + 1 / SORT  (CR)  + l/CR)/3.  0)**0.  33  ) ) 

GLEN=G1 *G2 
C 

C VAPORIZATION  INTERPOLATION  CALCULATION 

C 

IF  ( GL  < 1 > . GE.  GLEN)  GOTO  150 
IF  (GLEN  GE  GL(41>>  GOTO  175 
DO  125  1=2,  4 1 
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n o o 


125 

150 

175 


IF  (GLEN  Or.  GL  ( 1 ) ) GOTO  125 

eoTOIaoo*<OLtNHSL<I~1  ”/,eL<  1 >~gl< i-i  > xxFm  -f<  i-i>  > 

CONTINUE 
V=F ( 1 ) 

GOTO  300 

«MX<'!r":  ,8S79*RM1<“^  INJ) »*3>*XND 

GOTO  300 

CALCULATE  MASS  VAPORIZED  AND  CURRENT  DROPLET  RADIUS 


?00 


VNEW- < 1 0-V)*4.  18879*RMI**3 

RM^Jbm'  ;k^>=XRH0*((4.  18879*RMX(  IRM,  INJ)  **3) -VNEW)*XND 
RMX( IRM, INJ) =(VNEW/4  18879)**( 1 /3  ) XND 

TXVM=TXVM+XVM< IRM,  INJ) 

IF  (IMVFLG  GT  0)  WRITE<6,310>  INJ.  IRM.  GLEN,  RMI, 

RM  X (IRM/  INJ)#  V#  XVM(  TPM  tkj  it 

FORMATdX,  'FROM  MVAP  FOR  INJ,  IRM=  14,  ',  ' , 1 1 . 9X  * 'GLEN  RMr  ' 
'RMX, -/.VAP.MVAP:  ',  /IX,  5E12  5)  1 1 - *X..  GLEN.  RM I . . 

500  CONTINUE 
RETURN 
END 


300 


310 
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c 

c 

c 


SUBROUTINE  VDIST 

SUBROUTINE  TO  DISTRIBUTE  VAPORIZED  MASS  TO  VARIOUS  CELLS 
INSERT  COMMON 

IF  (ITRACE  EG  2)  WRITEC6,  1) 

1 FORMAT (/IX#  'ENTER  VDIST') 

LOOP  THROUGH  FOR  EACH  ELEMENT  AND  DROPSIZE 

DO  500  IN  J = 1 # NEL 
DO  500  IRM=1,3 

IF  ( XVM(  IRM,  INJ)  LE  0.0)  GOTO  500 
IF  < IVDFLG  GT.  O)  WRITE<6>  10)  IRM»  INJ 
10  FORMAT(/iX,  'BEGIN  DISTRIBUTING  DROP#  Ml 


C 

C 

C 


C 

c 

c 


c 

c 

c 


FOR  INJ='iI3) 


C 

c 

c 


100 

110 


120 

130 


140 


DTR= (3  1416/ 180  > 

RETRIEVE  INJECTOR  LOCATION 

RI=ERPQS( INJ) 

TI=ETPOS( INJ) 

RETRIEVE  DROP  RELATIVE  POSITION  AND  CALCULATE  NDROPS/SLICE 

DPOS=DRP ( IRM. INJ ) 

DANG=THETA 

NDIST=NSLICE-1 

IF  < ERPOS<  INJ ) GT  0.0)  DANG=43.  0 
IF  (ERPOS(INJ)  . GT.  0.0)  NDIST=7 
VPS=XVM< IRM<  INJ) / (NDIST+1 ) 

ADD  MASS  PROPORTIONATELY  TO  GRID 

DO  200  1=0.  NDIST 

XP=RI*COS(TI*DTR)+DPOS*COS< < DANG* I+DANG/2.  0)*DTR) 
YP=R I *SIN  < TI *DTR ) +DPOS*SI N ( ( DANG* I+DANG/2.  0) *DTR ) 
RP=SQRT  < XP**2+YP**2) 

TP=AT AN2 ( YP.  XP)/DTR 

IF  < TP  . LT.  0 0)  TP=360.  O+TP 

CORRESPONDING  SLICE 

T 1 =0  0 

DO  100  J= 1 . NSLICE 
T2=T 1 +THET  A 
IF  (TP  GE  Tl 
T 1 =T2 
C ONT I NUE 
I SL I CE=J 
R 1 =0.  0 

DO  120  J=l. NSEC 
R2=RGR ID( J ) 

IF  (RP  GE.  R 1 
R 1 =R2 
C ONT I NUE 

I RAD= J _ „„ 

XGRID( ISLICE,  IRAD ) =XGR ID ( I SLICE.  IRAD)+VPS 
IF  (I  VDFLG  GT.  0 > WR  I TE  (6.  140)  VPS.  I SLICE.  I R AD 
F ORMAT  < 1 X . El  2 3.  ' LB/S  OF  OX  VAPOR  ADDED  TO  SLICE. 
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AND.  TP  . LT.  T2)  GOTO  110 


AND.  RP  LT  R2 ) GOTO  130 


SEG  = 


I 


20  0 
500 


CONT  I NUE 
CONTINUE 
RETURN 
END 


SUBROUTINE  VCALC 
C 

C SUBROUTINE  TO  CALCULATE  RADIAL  AND  AXIAL  GAS  VELOCITIES 

C AND  DISTRIBUTES  MASS  ACROSS  GRID  TO  ACHIEVE  UNIFORM 

C PRESSURE  DISTRIBUTION  ACROSS  CROSS-SECTION 

C 

% INSERT  COMMON 

IF  (ITRACE  . EQ.  2)  WRITE<6,1) 

1 FORMAT < /IX,  'ENTER  VCALC') 

AT  =3.  1416*RW(NXP)**2 
C 

C CALCULATE  OVERALL  VAPOR  MR 

C 

OVMR  = T X VM/ THVM 
CPC=PC 
C 

C CALCULATE  MEAN  GAS  PROPERTIES  AND  1-D  GAS  VELOCITY,  GXV(l) 

C 

IC  = 1 


CALL 
I C =2 

DBLINT 

(CPC, 

OVMR , 

IC, 

CT  ) 

CALL 

IC=4 

DBLINT 

(CPC, 

OVMR , 

IC, 

GMW ) 

CALL 
IC  = 5 

DBLINT 

(CPC, 

OVMR, 

IC, 

VSONIC  ) 

CALL 

IC=7 

DBLINT 

(CPC, 

OVMR, 

IC, 

GRHO) 

CALL 
I C =6 

DBLINT 

(CPC, 

OVMR, 

IC, 

GMU) 

CALL 

TIMR= 

DBLINT 

TXF/TFF 

(PC, 

OVMR, 

IC, 

CSTAR  > 

CALL 

DBLINT 

(PC, 

TIMR, 

IC, 

PCSTAR) 

ERE=CSTAR* ( THVM+TXVM) /PCSTAR/  ( TXF+TFF ) 

GXV(  1 > =0.  62/CR*VS0NIC*ERE 
C 

C CALCULATE  RADIAL  VELOCITIES  IN  EACH  SLICE  DUE  TO  MALDISTRIBUTION 

C 

IF  <NSEG  . EQ.  1)  GOTO  501 
DO  500  1=1, NSLICE 
SMEAN=0.  0 
DO  200  J=l,  NSEG 

SMEAN=SMEAN+HGR I D< I , J)  + XGRID(  I, J) 

GRV ( I,  J)=0.  0 
200  CONTINUE 

SME  AN=  S MEAN / NSE  G 
C 

C REDISTRIBUTE  MASS  STARTING  AT  WALL 

C 

DO  300  J=NSEG,  2,-1 

DM=SMEAN-HGRID(I,  J)-XGRID(I,  J) 

IF  < DM  . EQ.  0.0)  GOTO  300 
SGN= 1 . 0 
JF= J 
JT= J- 1 

IF  ( DM  GT  0.  0)  JF=J-1 
IF  ( DM  . GT  0.  0)  JT*J 
IF  (DM  . GT.  0.0)  SON*— 1 . O 
AMASS=HGR ID ( I, JF)+XGRID< I, JF  ) 

IF  (DM  . GT  AMASS)  DM*AMASS 

DF= ( HGR I D < I # JF)  + XGRID( I.  JF ) ) /DM*SGN 
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HL=HGR I D < I,  JF)/DF 
XL=XGRID ( I,  JF)/DF 
XGRID(I,  JT)  = XGRID(I,  JT)-XL 
HGR  I D (I , JT ) =>HGR  I D ( I . JT)-HL 
XGRIDU,  JF ) = X GR I D (I , JF)+XL 

HGR I D ( I , JF ) = HGR I D ( I , JF ) +HL 
C 

C SUM  MOMENTUM  IN/OUT  OF  CELL 

C 


AC-6.  2332*RGRID( J-l ) * THETA/360.  0*XSTEP 
GRV(  I,  JT  )=GRV(  I,  JT)+DM/AC 
GRV( I, JF )=GRV(I,  JF ) -*■  DM/AC 
300  CONTINUE 
C 

C CALCULATE  RADIAL  VELOCITY 

C 


DO  400  J*l,  NSEG 

IF  CRWlfiJ-^O  ^ ° ° XCRID(I’J)  LE  0 °>  THEN 

GOTO  400 

ELSE  IF  (HGRID(I.J)  . LE.  0 0)  THEN 
VMR=20.  O 
GOTO  350 
END  IF 

VMR=  XGR  I D (I . J)/HGRID  ( I,  J) 

350  CRH0=0.  0 

IC=5 


400 


450 


500  CONTINUE 

501  CONTINUE 


CALL  DBLINT  (CPC,  VMR,  IC,  CRHO) 

GRV ( I,  J)  =GRV  ( I,  J ) /CRHO 
CONTINUE 

GT  0>  WRITE<6.  450)  I,  <GRV(  I.  J),  J=l.  NSEG) 
FORMAT ( IX,  'FOR  SLICE  ',13,'  GRV  ( SEG  ) = '#  10< F7.  2,  3X ) ) 


DISTRIBUTE  MASS  CIRCUMFRENTIALLY 


IF  (NSLICE  EQ  1)  GOTO  601 
DO  600  1=1. NSLICE 
IASL  ICE  = I + 1 

IF  ( IASL ICE  GT.  NSLICE)  IASLICE=1 
DO  600  J=l,  NSEG 

DM=  < XGR I D< I , J)+HGRID( I.  J)+XGRID< IASL ICE, 
/2.  O-XGR I D(  I,  J)-HGRID(  I,  J ) 

IF  (DM  . EQ.  0.0)  GOTO  600 
SGN=  1 . 0 


J)+HGRID< IASLICE,  J) ) 


I FR=  I 


I T= I ASL I CE 

IF  (DM  GT  0.0)  IFR=  IASLICE 
IF  (DM  . GT  O.  O)  IT=  I 
IF  ( DM  GT.  0.  O)  SGN=-1.  0 
AMASS=HGR ID ( IFR,  J)  + XGRID( IFR, J) 

IF  (DM  GT  AMASS)  DM=AMASS 

DF=(HGRID( IFR,  J) +XGR ID(  IFR,  J) )/DM*SGN 

HL=HGRID( IFR,  J)/DF 

XL=XGRID ( IFR,  J) /DF 

XORIDdT,  J)-XORID(lT.  J)-XL 

HGR  I D(  IT,  J)  =HGR I D(  IT,  J)-HL 

XGR  I D(  IT.  J)  = XGR  I D ( I T,  J)-*-XL 

HGR  I D( IT,  J ) =HGR I D ( I T , J)+HL 
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600  CONTINUE 

601  CONTINUE 

IF  (IPDFLG  GT  0)  NR  I TE  ( 6.  700 ) CPC,  GXV(l),  ERE 
700  FORMAT  ( IX,  'PC  = ',  F7  2,  5X,  ' 1-D  VELOC  ITY=  ',  F7  2,  5X.  'ERE-  F7  5) 
RETURN 
END 


SUBROUTINE  VCONV 


C 

C ROUTINE  TO  CALCULATE  GAS  VELOCITY  IN  A CONVERGING  NOZZLE 

♦INSERT  COMMON 

IF  (ITRACE  . EQ  2)  WRITE(6,  1) 

I FORMAT (/IX,  'ENTER  VCONV  ' ) 

C 

C CALCULATE  GAS  MW  AND  STAGNATION  DENSITY 


C 

C 

c 


I C =2 

OVMR=T  XVM/ THVM 

CALL  DBLINT  (CPC,  OVMR , IC,  GMW) 

I C =3 

CALL  DBLINT  (CPC.  OVMR.  IC.  GAMMA) 
GRH0-CPC#GMW/CT/10  73 

CALCULATE  AREA  RATIO  AND  MACH  NUMBER 


AR  ATI 0= ( RWALL  X /RW  < NXP ) ) **2 
CALL  MACH  (ARATIO,  ZMACH) 

IF  (ZMACH  LE.  0 O)  GOTO  7000 

IF  (ZMACH  GT.  1.0)  GOTO  9100 
C 

C CALCULATE  ISENTROPIC  PROPERTIES  CGT.  GRHO 

TRPG=1 . 0+< GAMMA-1.  0)/2  0*ZMACH**2 
CGT=CT/TRPG 

GRHO=GRHO/ ( TRPG** < 1 . 0/ ( GAMMA-1  0) ) ) 

C 

C 1-D  GAS  VELOCITY 


VAVG-ZMACH#SQRT (GAMMA/GMW*CGT*4971 2. 69) 

CALCULATE  AXIAL  AND  RADIAL  GAS  VELOCITY  FROM  LOCAL  VELOCITY  MAGNITUDi 


C 

C 

c 


R0  = 0 O 

DO  200  J= 1 , NSEG 

RJ=RO+  < RGR I D < J ) -RO) /2  0 
RO=RGRID< J) 

GANGLE=R J/RWALL  X*ANGLEX 
VGAS=VAVG 


IF  (GANGLE  NE.  00)  VGAS=VAVG*ANGLEX**2/2  0/ 
(ANGLEX*SIN( ANGLEX ) +COS ( ANGLEX > - 1 . 0) 

GRV  ( 1,  U)=VGAS*S  I N(  GANGLE) 


GXV ( J) =VGAS*COS ( GANGLE ) 
200  CONTINUE 

IF  ( IPDFLG  GT  O) 

210  FORMAT (IX.  'MACH#=' 

* 10(F7  2,  2X)  ) 

IF  ( IPDFLG  . GT.  0) 

211  FORMAT (IX,  'RADIAL 
RETURN 


WR I TE ( 6 . 210) 
F5.  3,  3X  , '1-D 


ZMACH, VAVG. (GXV( I ) , 1=1, NSEG) 
VELOCI TY= ' , F7  2. /2X,  'AXIAL  VEL 


WR I TE( 6.  211  ) ( GRV< 1 
VEL:  10IF7  2,  2X) ) 


K) , K=l.  NSEG ) 


ERROR  CONDITIONS 


9000  RWALLX-0*0  ERR°R  IN  VC0NV>  NEGATIVE  MACH  NO  FOR  ARATIO*',  ARATIO 
RETURN 

9100  WRITE(6,*)  ERROR  IN  VCONV^  ^UPERSONI C MACH  NO  FOR  ARAT 10®  ARATIO 


R W ALL X ~0  0 

RETURN 

END 


non 


SUBROUTINE  MACH  < AR,  ZM) 

C 

c SUBROUTINE  TO  CALCULATE  MACH  NUMBER  FOR  A 

C USES  NEWTON-RAPHSON  ITERATION 

C 

♦INSERT  COMMON 

IF  (ITRACE  EQ  2)  WRITE(6,1) 

1 FORMAT (/IX,  'ENTER  MACH') 

C 


GIVEN  AREA  RATIO 


ZM=0  01 

IF  (AR  GT  57  0)  RETURN 
IF  (AR  LT  2.  2)  ZM=0  4 
I C NT-0 

F 1 =2  0/(1  O+GAMMA ) 

F2= (GAMMA- 1.0)/ (GAMMA+ 10) 

F3= (GAMMA+ 1 . O ) /2  0/ (GAMMA- 1 O) 

10  I CNT=  I CNT  + 1 

Q=(F1+F2*ZM**2) 

FX=Q**F3/ZM-AR 

FXP=(2  0*F3*F2*Q#* ( F3- 1 . 0)  ) - (Q**F3/ZM**2) 
ZMN=ZM-FX/FXP 

IF  (ABS(ZM-ZMN)  LT.  0.00l#ZM)  RETURN 
ZM=ZMN 

IF  ( ICNT  . LT.  21)  GOTO  10 


ERROR  CONDITION 


WRITE  (6,  *) 
ZM— 1.  0 
RETURN 
END 


'ERROR  IN  MACH.  ROUTINE  NON-CONVERGANT ' 
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SUBROUTINE  DMO  VE 

SUBROUTINE  TO  MOVE  DROPLETS  DUE  TO  DRAG  ACCELERATIONS 


INSERT  COMMON 

IF  (ITRACE  EQ  2)  WRITE(6.  t> 

1 FORMAT (/IX.  'ENTER  DMOVE ' ) 

IF  ( IDMFLG  GT  0)  WRITE(6,2> 

2 FORMAT ( /IX  ) 


C 


C 

C 

C 

C 

C 

C 

c 


c 

c 

c 


LOOP  THROUGH  FOR  ALL  INJECTORS  AND  DROPSIZES 

DO  1000  IN  J=1 > NEL 
DO  1000  IRM= 1 . 3 

IF  < RMX ( IRM,  INJ ) . LE  0 0)  GOTO  1000 
DTR=  <3.  1416/  180.  ) 

"EXPAND"  DROPLET  TO  SUPERCRITICAL  PROPORTIONS 

RM=RMX(IRM.  INJ)*(XRH0/XRH0C)**(1.  /3.  ) 

CALCULATE  CURRENT  DROPLET  POSITION 

R I=ERPOS ( INJ) 

TI=ETPOS( INJ) 

DPOS  = DRP  < IRM.  INJ ) 

XP=<  RI+DPOS)*COS(TI*DTR ) 
YP=(RI+DP0S)*SIN<TI*DTR ) 

RP=SQRT ( XP**2+YP  **2 ) 

TP=ATAN2 ( YP . XP)/DTR 

IF  (TP  LT.  0.0)  TP  = 360.  O+TP 

CALCULATE  CORRESPONDING  GRID  LOCATION 

T 1=0  0 

DO  100  J=l.  NSLICE 
T2=T1 + THETA 

IF  (TP  GE.  T1  . AND.  TP  . LT.  T2)  GOTO  110 
T 1 =T2 

100  CONTINUE 

110  I SL I CE= J 

JSL I CE= J 
R 1=0. 0 

DO  120  J=l.  NSEG 
R2=RGR ID(  J) 

IF  (RP  GE.  R1  AND.  RP  LT.  R2)  GOTO  130 
R 1 =R2 

120  CONTINUE 

130  I RAD= J 

IRAD 1=IRAD 

IF  ( X LE.  X 1 ) I RAD  1 = 1 


CALCULATE  RELATIVE  GAS  VELOCITY.  DRAG  AND  ACCELERATION 


IF  < X GT  XI)  JSLICE=1 
DRVN=DRV( IRM. INJ) 

DXVN=DXV( IRM, INJ ) 

GV=SQRT ( GXV ( IRAD  1 ) **2+GR V ( JSL  ICE . IRAD)** 2) 
DV=SQRT(  DXV(  IRM.  INJ  > **2-*-DRV(  IRM,  INJ)**2) 
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XRV=GXV ( 1 RAD  1 )-DXV(  IRM,  INJ) 

RRV=GRV<  JSLICE,  I RAD  ) -DRV  ( IRM,  INJ) 

RGV=SQRT ( XRV**2+RRV*#2) 

IF  (RGV  LE  10)  GOTO  180 

DZ=XSTEP*SQRT<1.  0+<DRV<  IRM.  INJ)/DXV(  IRM,  INJ)  )**2) 
I CNT  =0 

175  CALL  DRAG  (RM,  GV,  DV,  RGV,  DZ,  ACC) 

C MOVE  DROPLET 

C 


r 

C 

C 


* 


180 


DXVN=GXV ( IRAD1 )-XRV*ACC 
DRVN=GRV ( JSL ICE,  IRAD ) -RRV*ACC 
DZN=XSTEP*SQRT (1  0+ ( ( DRV ( IRM, 
**2) 


INJ ) +DRVN) / ( DXV ( IRM,  INJ)+DXVN) 


IF  (AQS(DZN-DZ)  LE.  0 01*DZ)  GOTO  130 
DZ=DZN 

I CNT= ICNT+1 

IF  ( I CNT  . GT.  10)  GOTO  9000 
GOTO  175 


) 


RPNE W-RP  + ( DR V ( IRM,  INJ)+DRVN) /(DXV( IRM, 


INJ) +DXVN) *XSTEP 


CHECK  FOR  IMPINGEMENT 


IF  < RPNE  W GE.  R WALL  X ) GOTO  500 
NO  IMPINGEMENT,  UPDATE  POSITION 


# 

200 


DRP ( I RM, INJ) =RPNEW-R I 
DXV  < IRM,  INJ) =DXVN 
DRV ( IRM, INJ) =DRVN 


<VXV(IRM. INJ)  . LT  00)  GOTO  9100 
IF  ( DXV< IRM, INJ)  GT.  GXVdRADl  ) GOTO  9200 
IF  < IDMFLG  GT  0)  WRITE(6,  200)  IRM,  INJ,  RP,  RPNEW, 

poomat/iv  DXV(  IRM,  INJ),  DRVdRM,  INJ) 

FWdATUX^-DROP.  FROM  INJ-.n,  - MOVED  RADIALLY 

'*Z.3'  70  ',F7  3’  ' WITH  NEW  AXIAL  AND 

'RADIAL  VEL=  , F7  2.  F7  ?) 

GOTO  1000 


IMPINGEMENT  OCCURS,  ADD  OXIDIZER  TO  WALL  VAPOR 


500 


525 

550 

575 

600 


1000  CONTINUE 
RETURN 


PFAC  T=0.  165*TND<  INJ) *XRH0*4.  1888 

EQ  PFACT=0  67*TND<  INJ)*  XRH0*4.  1888 
XVAPN=RMX  < IRM,  I N J ) **3*PFACT 
TXVM-TXVM+XVAPN 

IF  ( ERPOS ( INJ)  GT.  0.0)  GOTO  550 
XVAPN=XVAPN/NSL ICE 
DO  525  I K=1 , NSLICE 

XGRID  ( IK,  NSEG  )=XGR1D(  IK,  NSEG)  -*  XVAPN 
CONTINUE 
GOTO  575 

XGRID< I SLICE,  NSEG)  = XGRID( ISLICE,  NSEG)+XVAPN 
RMX( IRM,  INJ)=0  O 

WRITE(6,  600)  X,  TP,  IRM,  INJ,  RMO(INJ),  3GdNJ) 

FORMATdX,  'IMPINGEMENT  OCCURS  AT  X,  THETA=  ',  F7  3,  * , F6  2 

/5X,  'DROP  NUMBER  ',11,  ' FROM  INJ=',I4.  ' RMEAN,  SG=  ' ! 
El  1.  4.  ',  F6  3)  ' ^ ' 
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ERROR  CONDITION 


9000  WR ITE< 6, * ) 'DZ  NOT  CONVERGING  FOR  I N J.  I RM=  ' . INJ , '.IRM,  ' AT  X 

* X.  ' RON  STOPPED' 

X = - 1 0 

RETURN 

9100  WR  ITE<  6.  » ) 'DROP  ACCELERATED  TO  NEGATIVE  VELOCITY  AT  X='.X, 

» ' INJ.  IRM=',  INJ,  IRM,  ' ACC= ' . ACC 

X = - 1 0 
RETURN 

9200  WRITE (6,*)  'DROP  ACCELERATED  TO  GREATER  THAN  GAS  VELOCITY  AT  X 

* ' INJ.  IRM*',  INJ,  IRM,  ' ACC=  ' , ACC 
X = — 1 o 

RETURN 

END 


ono  non  ooo 


SUBROUTINE  DRAG  (RM,  GVM,  DVM,  VELR,  DZ,  A) 

C 

C SUBROUTINE  TO  CALCULATE  THE  DRAG  ON  A DROPLET  OF  RADIUS  RM  IN 

C A GAS  FIELD  HITH  A RELATIVE  VELOCITY  VELR.  THE  RESULTANT 

C ACCELERATION  IS  A.  CALCULATIONS,  IN  PART,  FROM  TPP  AND  SDER. 

♦INSERT  COMMON 

IF  (ITRACE  EG.  2)  WRITE(6,  1) 

1 FORMAT! /IX,  'ENTER  DRAG') 


CALCULATE  FLOW  REGIEME 


RE=(2  0*GRHO*VELR*RM) /GMU 
IF  (RE  GE  0.  5)  GOTO  100 

STOKES  FLOW 


Q=4  5*GMU/XRH0C/RM**2*DZ 
A=EXP< - ( Q+DVM ) / GVM ) *EXP ( DVM/GVM ) 

IF  (IDFLG  GT.  0)  WRITE(6,  90)  RM,  VELR,  RE,  A 
90  FORMAT  (IX,  'RM,  VELR,  RE,  A=',4E12  5) 

RETURN 


NEWTONIAN  FLOW 


100  IF  (RE  GT. 
IF  (RE  . GE. 
IF  (RE  . GE. 


0.  5 AND.  RE  LT.  70.  0)  CD=27.  0*RE**(-0.  84) 

70.0  AND  RE  . LT.  59200.0)  CD=0 . 414*RE**(0  1433) 
59200.  O)  CD=2.  0 


G=0  375*CD*GRH0/XRH0C/RM*DZ 

A=EXP (G- (GVM /VELR ) ) *EXP ( GVM/ VELR ) 

A=EXP(  -6.  0*CD#GRHO*VELR*DZ /XRHOC/RM/DVM) 

IF  (IDFLG  GT.  0)  WRITE(6,  110)  RM,  VELR,  RE, 
llO  F0RMAT(1X,  'RM,  VELR,  RE,  CD,  A*',  5E12  5) 
RETURN 
END 


CD, 


A 
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n n n non 


SUBROUTINE  MRPLOI 


C SUBROUTINE  TO  CALCULATE  VMR (Rr THETA) 

C IF  IMRFLG=  1 1 ONLV  WALL  MR  IS  PRINTED;  IMRFLG=1<  CROSS— SECT  ION  MR 

C IS  PRINTED;  IMRFLG=2  PRINTS  MASS  DISTRIBUTION  IN  PL  HISTORY; 

C IMRFLG=3  PRINTS  GRID  CONTENTS  IN  PL. HISTORY 

C 

♦INSERT  COMMON 

IF  (ITRACE  . EQ  2)  WRITE<6, 1) 

1 FORMAT (/IX,  'ENTER  MRPLOT ' ) 

I ROW=NSEG 

IF  (IMRFLG  GT  0)  IR0W=1 
WRITE  HEADER 


XV=GXV ( 1 ) 

IF  (X  GT.  XI)  XV~GXV ( NSEG ) 

WRITE  (7,10)  X,  XV.  (RGRIDC  I ).  I = IROW.  NSEG) 

10  FORMAT ( // 1 OX,  'AT  AXIAL  PDS I T I 0N= ' , F7  4 . ' FT.  FROM  INJECTOR  FACE', 

* ' WALL  AXIAL  VELOC  I TY=  ' , F7.  2,  ' FT/SEC './ /5X  , 'RSEG  <FT)',7X, 

* 10<F6.  3,  4X)  , /10X,  10 (F6.  3,  4X).  /10X,  10<F6.  3.  4X)  ) 

CALCULATE  VMR  IN  SLICE 


DO 


150 


160 


0. 

0 


200  1=1,  NSL ICE 
DO  150  J=  I ROW,  NSEG 
GRV < I,  J>=-1  0 
IF  < XGR I D< I , J)  GT 
IF  (HGRIDU,  J)  ■ GT. 

CONTINUE 

WRITE(7.  160)  ( I *THETA) 

FORMAT  < 5X,  ' THETA= ' 

5 ( F6.  3,  4X) ) 

IF  (IMRFLG  . GT  1)  WRITE(6, 170) 


O)  GRV  ( I,  J ) =99  99 

0)  GRV ( I, J)=XGRID(  I,  J) /HGR I D< I 


J) 


(GRV<  I.  J),  J=  IROW,  NSEG) 


F6.  2,  4X.  10<F6.  3.  4X>.  /10X,  10  ( F6  3,  4X) , /10X, 


170  FORMAT < /IX,  'FOR 

IF  (IMRFLG  Gf 
IF  (IMRFLG  . GT. 
180  FORMAT ( IX, 'FUEL 

190  FORMAT  < IX,  ' OX 

200  CONTINUE 
RETURN 
END 


SLI CE= ' , 13, /IX, 
2)  WR I TE ( 6,  1 BO ) 
2)  WRITE (6,  190) 

',  1 0 ( E 1 1 . 5,  2X)  ) 
',  1 0(  E 1 1 5,  2X)  ) 


I,  ( (HGR ID ( I , J) +XGR ID< I > J) ) 
J=l. NSEG) 

MASS:  '.  10 ( E 1 1 . 5,  2X  > ) 

( HGRI D ( I,  J) . J=1 , NSEG) 

( XGRID ( I,  J ) , J= 1 , NSEG ) 


non 


SUBROU 1 INE  CERE 


SUBROUTINE  TO  CALCULATE  ENERGY  RELEASE  EFFICIENCY 
* INSERT  COMMON 

IF  (ITRACE  EQ  2)  WRITE(6, 1) 

1 F ORMAT ( / 1 X < 'ENTER  CERE') 

C 

CMR=TXF/TFF 

C 

C SUM  C*  FOR  EACH  CELL  INCLUDING  MASS  WEIGHTING  FACTOR 

C 

CSUM-0  O 
I C =6 
CI=0  O 

DO  100  1=1 , NSL ICE 
DO  100  J= 1 , NSEG 

VMR=XGRID(  I,  J)/HGRID(  I,  J) 

CALL  DBLINT  (PC,  VMR , IC.  Cl) 

WI=<  XGR ID( I , J ) +HGR I D ( I, J) )/ ( TXVM+THVM) 

CSUM=CSUM+WI*CI 
100  CONTINUE 
C 

C CORRECT  C*  FOR  MASS  DEFECT 

C 

CSUM=C  SUM* ( TXVM  + THVM) / ( TFF+TXF ) 

C 

C CALCULATE  C*  COMBUSTION  EFFICIENCY 

C 

CSTAR=0  0 

CALL  DBLINT  (PC,  CMR,  IC,  CSTAR ) 

ER E=C SUM/ C STAR *100.  0 
EVAP=MIN(  100.  0,  <TXVM/TXF*100.  0)  ) 

EMI X=ERE/EVAP* 1 OO.  O 

WRITE(6,  200)  THVM,  TFF,  TXVM,  TXF,  EVAP,  EMIX,  ERE 
200  FORMAT  ( //5X,  F8  3,  ' LB/S  OF  FUEL  VAPORIZED  OUT  OF  ' , F8.  3, 

* ' LB/S  TOTAL ',  /5X.  F8.  3,  ' LB/S  OF  OX  VAPORIZED  OUT  OF  ',F8  3, 

* ' LB/S  TOTAL ',//5X,  'OX  VAPORIZATION  EFFI  CIENCY=  ' , F7  3,  '7.', 

* /5X,  'MIXING  EFFI  C IENCY=  ' . F7.  3.  'Z'./5X» 

* 'ENERGY  RELEASE  EFFI C IENCY=  ' , F7.  3,  '7. ' , // ) 

RETURN 

END 
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o o n o n o 


C 

C 

c 

c 

c 

c 

C 

C 

C 

C 

C 

c 

r 

C 

C 

C 

C 

C 


SUBROUTINE  DBLINT  (PR,  XMR . IVFLG,  Q) 

SUBROUTINE  TO  PERFORM  DOUBLE  INTERPOLATION  TO  CALCULATE  T, 
MW,  GAMMA.  VSONIC.  RHO  C*  AND  MU  AS  A FUNCTION  OF  PC  AND  MR 

INPUTS 

PR=CHAMBER  PRESSURE,  PS  I A 
XMR=M IXTURE  RATIO 

I VFLG= VALUE  FLAG  1 = TGAS,  DEGREES  R 

2 -MW 

3=SPEC I F IC  HEAT  RATIO 
4=VS0N I C , FT/SEC 
5=RHO,  LB/CU.  FT 
6=C  STAR , FT /SEC 
7=MU,  LB/FT-SEC 


OUTPUT 

Q= VALUE  OF  IVFLG 
IMPLICIT  REAL*8  (A-H,  O-Z) 

COMMON  /IPROPS/  FT J,  FRHO.  FMU,  FTC,  FHV,  FMW.  XRHOC, 
XST , XT  J,  X RHO,  XMU,  XTC,  XHV.  XMW 


LOCAL  COMMON  ONLY 


COMMON  /DBLDAT  / XM(13),  T(2,  13),  WM(2,  13).  CS<2,  13),  UM<2,  13). 

* GM  (2.  13) 

DATA  XM  / 0.  , I.,  2.  . 3.  , 4.  , 5.  , 6.  » 7.  . 8.  , 9.  , 10  , 15  . 20  / 
DATA  ( (T(I,  J).  J=l.  13),  1 = 1,  2)  / 37.0,  1759.,  3232.,  4404.,  5237  , 

* 5756.  , 6093  , 6159  , 6177  , 6141.  , 6078  . 5650.  , 5209.  , 

* 37.  0,  1759  . 

* 3236.  , 4430  , 5375  . 6064  , 6504  , 6717.  , 6756.  , 6695  , 

* 6592.  , 5974.  , 5401.  / 

DATA  ( <WM<  I,  J),  J=1 , 13)  , 1=  1, 2)  / 2.  016.  4.032,  6 048.  8.048,  9.957, 

* 11.703,  13  263,  14.135,  15  835,  16.889,  17.825,  21.291, 

* 23  501,  2.016,  4 032,  6 048,  8.059,  10  029,  11.  897,  13  603. 

* 15.094,  16  355.  17.421,  18.341,  21.653,  23.722/ 

DATA  < <CS(  I,  J),  J=l,  13).  1 = 1,2)  / 1287.,  6864.,  7751.,  7959  . 7922  , 


* 

7742.  , 

7493.  , 

7220.  , 

6956.  , 

6715  . 

6500.  , 

5715  , 

5194.  , 

* 

1287  , 

6864.  , 

7751.  i 

7959.  , 

7950.  . 

7829.  , 7637.  , 

7396.  , 

* 

DATA 

7133  , 
( ( UM  < I, 

6879.  , 
J ) > J15 1 » 

6647.  , 
13) i I=li 

5800.  , 5237  / 

.2)  /O  2875,  0. 

5139, 

0 9856, 

1 363, 

* 

1. 646, 

1.  835 , 

1.  951 1 

2 014, 

2.  045. 

2 057,  2 058, 

2 006, 

* 1.920,  1 305.  0 5319,  0.9857, 

* 2.  148  , 2 183  , 2.  190  , 2.  182, 
DATA  ( (GM< I, J) , U=1 . 13) , 1=1 , 2)  / 1 

* 1 148,  1.  133,  1.  126,  1.  125,  1 

* 1 359,  1.284,  1.237,  1 199,  1 

* 1 138,  1 149,  1 165/ 

R=  1 0.  73 


1.  369,  1 679.  1.  908, 


2.  083 

, 1.  971/ 

400, 

1.  359, 

1 283, 

1 227  * 

125, 

1.  126, 

1 135. 

1.  149, 

168, 

1.  148, 

1.  138. 

1 136, 

062, 

1.  178, 
1 400, 
1.  136, 


FIND  MR  BOUNDS 

IF ( XMR  GT  XM ( 1 ) ) GOTO  20 
1=2 

GOTO  60 

20  IF ( XMR  LT  XM ( 13 ) ) GOTO  30 
1 = 13 
GOTO  60 
DO  50  1=2, 13 


30 
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c 

c 


IF  < XM< I ) 
GOT  0 60 
50  CONTINUE 
60  CONTINUE 

IF  (IVFLG  EQ 
IF  (IVFLG  EQ 
IF  (IVFLG  EQ 
IF  (IVFLG  EQ 

CALCULATE  T 


t-T  XMR)  GOTO  5C 


2)  GOTO  200 

3)  GOTO  300 

6)  GOTO  600 

7)  GOTO  700 


C 

C 


C 

C 

c 


T(  1,  1 ) -FTJ+460.  0 
T(2/  1 ) =FTU+460.  0 

0=TP1  + (PR-300.  1/2700  .(TP2-TP?  I>-T(2,  <I-|,U 

IF  I IVFLG  EQ.  II  return 
CALCULATE  MW 

200  SSSJSli:  J:}  I'-lll'A  Z { ; > >*<**««  • 

cmw*cmwi+( PR-30o  ) /s7oo ..(cnus-cnl ! 7 ^ 1 ’ ,*<MM<a'  ’ >-wm<2.  ( 1-1 , ) , 

IF  (IVFLG  EQ.  4)  GOTO  300 
IF  (IVFLG  EQ  5)  GOTO  500 
Q=CMW 
RETURN 


C 

C 

C 


CALCULATE  GAMMA 

00  0M2=8mi;  x - J J ^ J JmrIJ"  J J ^ J U <”  J zJUJ  J J ' J ‘ 1 ■ n-im 

GAMMA=GM1-M PR-300  ) /2700.  * ( GM2-GM1  ) * > >*<GM(2.  I >-GM(2,  ( 1-1  ) ) ) 

IF  (IVFLG  NE.  3)  GOTO  400 

G=GAMMA 

RETURN 


c 

c 

c 


CALCULATE  VSONIC 
400  IF  (IVFLG  NE.  4)  GOTO  500 

RETURN  <GAMMA#R#Q/CMW*4633  056  > 


c 

c 

c 


c 

c 

c 


CALCULATE  DENSITY 
500  Q=PR*CMW/R/Q 

return 

CALCULATE  CSTAR 

Q=CPl  + (PR-300.  )/2700  # (CP2-CP 1 ) >"XM( 1-1  > >*<CS(3,  I )-CS(2,  ( I-i  , , > 

RETURN 

CALCULATE  MU 

00  J : i : { i”" : J :i J J ^ J S ” J ; -*>•*< < 1 . d-umu.  <i-n,> 

Q=(UP1T, PR-300.  1/2700  . (UP2-W  t,  3 SJ  ME-  j*<UM<S'  1,-UMI2'  < 1-1  > > ) 
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return 

END 


n n r> 


COMMON  INSERT  FOR  PERFORMANCE/LIFE  COMBUSTION  MODEL,  PLC 

IMPLICIT  REAL*8  <A-H,  O-Z) 

COMMON  /OPCOND/  PC,  TFF,  TXF,  HCMRO 

COMMON  /WALL/  NXP,  XW(NXP>,  RW(NXP),  WANGLE  (NXP ) , CR,  XI,  X2> 

* X,  RWALLX,  ANGLEX 
COMMON  /FACE/  NEL,  NROWS,  NELR ( NROWS) , RROW(NROWS), 

* ERPOS(NEL),  ETPOS(NEL),  CFLOW,  CFMR 

COMMON  /INJECT/  ITYPE,  RXP,  RFP,  TPOST.  RECESS.  RMS,  XDL,  CSA. 

* PFI,  FCD,  XCD.  FMF(NEL).  XMF(NEL).  HGMR(NEL) 

COMMON  /GRID/  NSLICE.  NSEG,  THETA,  RGR ID(NSEG) . XGR ID<  NSL ICE. NSEG ) , 

* HGR ID (NSLICE,  NSEG) 

COMMON  /IPROPS/  FT J,  FRHO,  FMU,  FTC,  FHV,  FMW,  XRHOC. 

* XST,  XT  J,  XRHO.  XMU,  XTC,  XHV.  XMW 

COMMON  /VAPOR/  TXVM,  THVM,  XVM(3,  NEL) 

COMMON  /GAS/  CPC.  CT,  GAMMA,  GRHO,  GMU,  GMW.  GXV(NSEG).  GRV  (NSL  ICE,  NSEG ) 
COMMON  /DROP/  RMO(NEL),  SG(NEL),  VFACT(NEL).  AL (NEL ) , TND(NEL), 

* RMX  ( 3,  NEL ) , DRP  ( 3,  NEL  ) , DXV(3.NEL),  DRV(  3.  NEL  ) 

COMMON  /FILL/  COMO,  NEL) 

COMMON  /MSG/  IAFLG.  IVDFLG,  IMVFLG,  IPDFLG.  IDMFLG,  IMRFLG,  IDFLG, 

* IRFFLG,  I TRACE 

COMMON  /STEP/  ASTEP.  XSTEP.  IEFLG 

C 
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/*  CPL  PROGRAM  TO  CREATE  A SEG  FOR  PERFORMANCE/LIFE  COMBUSTION  MODEL 
/*  WITH  COMMONS  DIMENSIONED  TO  THE  PROBLEM 
/* 

/*  ***********  NSUBS=NUMBER  OF  PROGRAMS  WITH  INSERT  COMMONS  #**#«#**** 
/* 

/*  RETRIEVE  BASE  FILES 

/* 

ScIF  [EXISTS  PLC.  F77  -FILE  -BRIEF]  ScTHEN  DELETE  PLC  F77 
&IF  CEXISTS  COMMON  -FILE  -BRIEF]  ScTHEN  DELETE  COMMON 
&IF  CEXISTS  FMF.  EQ  -FILE  -BRIEF]  ScTHEN  DELETE  FMF  EQ 
S.IF  CEXISTS  XMF.  EQ  -FILE  -BRIEF]  ScTHEN  DELETE  XMF  EQ 
COPY  <AMFD27>E23846>PL  UFD>PLC.  F77  PLC  F77 
COPY  <AMFD27>E23046>PL  UFD>COMMON  COMMON 
S<S  UNIT!  :=  COPEN_FILE  FMF.  EQ  -MODE  W THERE] 

&S  UNIT2  :=  COPEN_F I LE  XMF  EQ  -MODE  W THERE] 

ScS  END  : = *END 
/* 

/*  DEFAULT  SIZES  AND  CHECK  FOR  NEW  VARIABLES 

/* 

ScS  TYPE  : = 1 
ScS  NEL  : = 1 
ScS  NROWS  : = 1 

ScS  NXP  : - 2 
ScS  NSLICE  = 12 
/* 

/*  FIND  NEW  VALUES  IF  THEY  EXIST 

/* 

ScS  UNIT  :=  COPEN_FILE  PL  INPUT  -MODE  R THERE] 

ScIF  7.THERE7.  0 ScTHEN  ScSTOP  ^MESSAGE  PL.  INPUT  NOT  FOUND 
/* 

/*  LOOK  FOR  END  OF  NAMELIST  OUTPUT 

/* 

Sc  DO  I : = 1 ScTO  10 

ScS  LINE  :=  CREAD_F  ILE  7.UNIT7.  OK] 

ScIF  7.LINE7.  * 7.END7.  ScTHEN  Sc  GOTO  OUT 
ScEND 

ScSTOP  ScMESSAGE  NO  END  FOR  NAMELIST  OUTPUT 

/* 

/*  LOOK  FOR  NXP  AFTER  PROPERTIES 

/* 

ScLABEL  OUT 

ScS  LINE  :=  C READ_FILE  ‘/.UNIT*/.  OK] 

S.S  LINE  :=  C READ_FILE  7.UNIT7.  OK] 

ScS  LINE  :=  C READ_FILE  7.UNIT7.  OK] 

S.S  LINE  :=  C READ_FILE  7-UNIT*/.  OK] 

ScS  LINE  :=  CREAD_FILE  7.UNIT7.  OK] 

ScS  LINE  : =*  CREAD_FILE  7.UNIT7.  OK] 

ScS  NXP  : = C READ_F ILE  7.UNIT7.  OK] 

/* 

/*  LOOK  FOR  NEL  AND  NROWS  AFTER  WALL  DATA 

/* 

Sc  DO  I : = 1 ScTO  7.NXP7. 

ScS  LINE  : = CREAD_FILE  7.UNIT7.  OK] 

ScEND 

ScS  LINE  :=  C READ_FILE  7.UNIT7.  OK] 

ScS  LINE  :«  CREAD_F1LE  7.UNIT7.  OK] 

ScS  TYPE  CTRIM  CSUBSTR  7.LINE7.  1 4]  -BOTH] 

ScS  NEL  : = CTRIM  CSUBSTR  7.LINE7.  5 4]  -BOTH] 

ScS  NROWS  :=  CTRIM  CSUBSTR  7.LINE7.  9 4]  -BOTH]  J-250 


*S  NSEG  = 7NR0WS7.  + 1 

/* 


/* 

/* 

/* 


LOOK  FOR  NAMELIST  CONT  AFTER  ELEMENTS  AND  INJECTOR  CONFIGURATION 
SETUP  FMF.  EG  AND  XMF.  EQ  IF  TYPE  2 INPUT 


&IF  7TYPE7  = 2 &THEN  &GOTO  TYPE2 
ScDO  I : = 1 &TO  7.NEL7. 

&S  LINE  : = [READ_FILE  7UNIT7  OKI 
&END 

&GOTO  END_2 
&LABEL  TYPE2 

&S  IFS  : = ' IF  ( IROW  EQ  ' 

5<S  IFS2  :=  ' ) FMF(INJ)  = ' 

&S  IFS3  :=  ' ) XMF(INJ)  = ' 

&S  ICN  : = ' » ' 

&DO  I : = 1 !<TO  7NR0WS7 

&S  LINE  : = [READ_FILE  7UNIT7  OKI 
«cS  FMF  : = CREAD_F  ILE  ’/.UNIT'/.  OKI 

MF  */.OK7.  •'=  O &THEN  &STOP  ^MESSAGE  ERROR  READING  FMF  EQ  FOR  ROW  V 17 
&S  FMFC  :=  7.IFS7.7.I7.7.IFS27. 

&S  FMF  : = 7ICN77FMF7 
«<S  J : = C WRI  TE_FI  LE  7.UNIT17.  7FMFC7I 

&S  J : = [ WR  ITE_F  I LE  7UNIT17  7.FMF7.1 

«<S  XMF  :=  CREAD_F ILE  7 UNITE  OKI 

*IF  7.0K7.  '=  O &THEN  &STOP  ^MESSAGE  ERROR  READING  XMF  EQ  FOR  ROW  7 TV 
&S  XMFC  :=  7IFS77I77IFS37  ' 

«<S  XMF  : = 7.ICN7.7.XMF7. 

&S  J : = C WR  I TE_FILE  7 UNIT  17.  7.  XMFC  7 1 

&S  J : = C WR  I TE_F  I LE  7UNIT27.  7XMF7.I 

&END 

S.LABEL  END  2 

&DO  &UNTIL  7.LINE7  = *CONT 

&S  LINE  : = [READ_FILE  7UNIT7.  OKI 
&END 
/* 


/#  READ  ALL  LINES  AND  PARSE  UNTIL  *END  IS  FOUND 

/* 

&LABEL  NEXTLINE 

&S  LINE  :=  [ READ_FILE  7UNIT7  OKI 
&IF  7LINEX  = 7END7  &THEN  &GOTO  NOMORE 
8»S  LINE  :=  CTRIM  7.LINE7  -RIGHT  1 
&DO  &UNTIL  [LENGTH  7LINE71  = 0 

8.S  LINE  : = [TRIM  7LINE7  -LEFT  1 
&S  NAME  : = [BEFORE  7.LINE7  =1 
icS  LINE  = [AFTER  7LINE7  =1 
&S  7NAME7  :=  [BEFORE  7LINE7  'I 
&S  LINE  : = [AFTER  7LINE7  'I 
&END 

&GOTO  NEXTLINE 

/* 


/*  CHANGE  DIMENSIONS  IN  COMMON 

/* 

&LABEL  NOMORE 
&DATA  S ED  COMMON 
C/<NXP> /( 7NXP7 ) /50  G 
TOP 

C/NEL) /XNELXJ/SO  O 

TOP 

C/ ( NROWS ) / ( 7NR0WS7 ) / 50  G 
TOP 
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c/ ( NSLICE/ ( ’/.NSL  ICE7./50  G 
TOP 

C/NSEG)  /‘/.NSEG7. ) /50  G 
FILE 
&END 

CLOSE  FMF.  EQ 
CLOSE  XMF. EQ 
CLOSE  PL.  INPUT 

/* 

/*  COMPILE.  SEG  AND  RUN 

/* 

F77  PLC  -DO 1 -SILENT  1 -OPT 
5.DATA  SEG  -LOAD 
LO  PLC 
LI 

MAP  3 

SA 

GU 

&END 

DELETE  PLC.  B IN 
8.RETURN 


PART  G 

ADVANCED  OXYGEN-HYDROGEN  ROCKET 
ENGINE  STUDY  CHAMBER  GEOMETRY  DEFINITION 
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J-253 


2/25/91 


AEROJET  LIQUID  ROCKET  COMPANY 
INTER-OFFICE  MEMORANDUM 


9 January  1980 
RAH:sm:9751 :0389 
CDN : 97  51 :4399 


TO:  C.  J.  O'Brien 

FROM:  R.  A.  Hewitt 


SUBJECT: 
COPIES  TO: 


ENCLOSURE: 


REFERENCE: 


APPENDIX: 


Advanced  Oxygen-Hydrocarbon  Rocket  Engine  Study 
Chamber  Geometry  Definition 

K.  Christiansen,  D.  Culver,  0.  D.  Goodman,  D.  Kors , 

D.  Lemke,  J.  Mellish,  H.  Mueggenburg,  J.  L.  Pieper, 

J.  Salmon,  R.  Schwantes,  C.  E.  Taylor,  9751  Personnel, 

9751  File 

(1)  Typical  Rocket  Engine  Parameters 

(2)  Chamber  Pressure  vs  Thrust 

(3)  Liquid/Liquid  Engine  Contraction  Ratio  vs  Thrust 

(4)  Liquid/Liquid  Engine  Chamber  Length  vs  Thrust 

(5)  Liquid/Hot-Gas  Engine  Chamber  Length  vs  Thrust 

(a)  C.  J.  O’Brien,  "Advanced  Oxygen-Hydrocarbon  Rocket 
Engine  Study",  Program  Plan  33542  PP,  29  Oct.  1979 

(b)  ALRC  Rocket  Design  Presentation  by  J.  I.  Ito 

(c)  A.  J.  Pavli,  NASA-Cleveland,  Ohio,  "Design  of  Injectors 
for  H/C". 

(d)  J.  A.  Mellish,  "Advanced  Engine  Study  for  Mixed  Mode 
OTV's",  NASA  CR  159491,  Dec.  1978 

(e)  Empirical  Design  Curves  in  C.  J.  O'Brien  Possession 

(f)  Rocketdyne  Monthly  Reports  No.  1 and  2 in 

R.  J.  LaBotz  Possession 

(g)  R.  A.  Hewitt  to  J.  A.  Mellish,  "COTV  Geometry", 

28  September  1979,  ALRC  Memorandum  9751:0348 

(A)  Universal  Geometric  Guidelines 


INTRODUCTION 


The  "Advanced  Oxygen-Hydrocarbon  Rocket  Engine  Study"  parametric 
analysis  requires  chamber  geometry  (D^,  L',  CR)  guidelines  to  provide 
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Introduction  (cont.) 

reasonable  and  typical  design  values.  This  preliminary  study  (See  Ref.  a) 
is  directed  at  a thrust  range  of  from  200,000  to  1,500,000  Ibf  with  emphasis 
on  the  600,000  to  1,000,000  lbf  level.  The  chamber  pressure  range  is  from 
1000  to  5000  psia.  The  propellant  combinations  are  LOX/RP-1  and  L0X/CH4, 
with  LH^  considered  only  as  an  additional  coolant  possibility.  The  mixture 
ratio  range  to  be  studied  is  2.0  to  3.5  for  L0X/RP-1,  and  3.0  to  4.5  f0r  the 
L0X/CH4  propellant  combination.  The  nozzle  exit  area  ratio  will  range  from 
about  15:1  to  100:1  as  determined  by  attachment  limit  as  a function  of  chamber 
pressure  and  optimum  trajectory  trade-offs. 

RECOEtiENDED  GEOMETRY  GUIDFI  INFS 


Based  on  the  information  presented  in  the  body  of  this  memorandum  the 
following  rocket  geometry  relationships  are  recommended  for  the  "Advanced 
L0X/HC  Engine  Study": 


Injection  state 

Liquid/Liquid 

- 

Liquid/Gas 

Contraction  Ratio  CR 

Log10  CR  =-.0715  L0G]0  F + 0.689 

3.00 

Chamber  Length  L'  (in) 

Log10  L'  = .23  Log10  (F/Pc)+  .85 

i 

Log1QL'  =.23  Log  (F/Pc) 
+ .621  10 

The  above  contraction  ratio  relationship  will  yield  a 1 iquid/i iquid 
value  of  about  1.85(0  800,000  lbf)  which  can  be  assumed  constant  for  purposes 
of  this  study.  The  estimated  chamber  lengths  will  be  as  follows: 
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Recommended  Geometry  Guidel 

ines  (cont.) 

Iniectlon  State 

Liquid/Li 

quid 

Liquid/Gas 

Thrust, lbf/Pressure,psi a 

1000 

5000 

1000 

5000 

200,000 

23.9" 

16.5" 

14.1" 

9.8  " 

600,000 

30.8 

21.3 

18.2 

12.6 

1,000,000 

34.7 

23.9 

20.5 

14.1 

1 ,500,000 

38.1 

26.3 

22.5 

15.5 

The  estimation  of  the  chamber  throat  diameter  depends  on  the  details 
of  the  engine  design  being  considered.  However,  a diameter  estimate  for 
the  propellant  combinations  used  here  are  shown  in  the  appendix.  The  following 
information  is  of  more  general  interest  and  referred  to  as  "Universal  Guidelines" 
since  so  little  data  may  exist  to  substantiate  design  trends  in  any  given  narrow 
spectrum  of  thrust  or  chamber  pressure. 

The  designation  of  what  propellants  and  engine  cycle  qualify  for  the 
designation  liquid/liquid  or  liquid/gas  are  estimated  as  follows: 


Lox/RP-1  Ambient 
LOX/RP-1  Regenerative 
LOX/RP-1  Staged  Combustion 
L0X/CH4  Ambient 
L0X/CH4  Regenerative 
L0X/CH4  Staged  Combustion 


Liquid/Liquid  Average*  Liouid/Gas 

X 
X 


♦Average:  Arithmetic  average  of  the  liquid/liquid  and  liquid/gas  values. 
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UNIVERSAL  GEOMETRIC  PREMISES 

The  "Advanced  Oxygen-Hydrocarbon  Rocket  Engine  Study"  chamber 
geometry  definition  relies  heavily  on  two  premises:  (1)  that  the  average 
trends  of  existing  rocket  engine  geometries  as  a function  of  chamber  pressure 
and  thrust  will  continue  to  be  valid  for  future  designs,  and  (2)  that  a 
given  existing  rocket  geometry  could  theoretically  have  its  chamber  pressure 
and  thrust  increased  and  decreased  over  about  a factor  of  3 without 
significantly  altering  its  performance,  stability,  or  compatibility  charac- 
teristics. Design  information  used  to  substantiate  the  assumptions  made 

in  this  memorandum  arelargely  contained  in  Enclosure  (1)  and  reference  (b) 
through  (f). 


EXISTING  ROCKET  GEOMETRIFS 

A table  of  typical  rocket  engine  parameters  are  shown  in  Enclosure 
(1).  The  rocket  geometric  characteristics  are  defined  by  three  dimensions; 

(1)  throat  diameter,  (2)  chamber  diameter,  and  (3)  chamber  length  from 
injector  to  throat.  The  non-dimensional  ratios  such  as  contraction  ratio 
and  chamber  length  to  diameter  ratios  are  shown  for  convenience.  The  rocket 
engine  operational  characteristics  are  defined  by:  (1)  propellants,  (2)  mixture 
ratio,  (3)  thrust,  and  (4)  chamber  pressure. 

extrapolation  of  thrust  and  chamber  pressure 


It  is  a premise  of  this  study  that  the  chamber  pressure  and  thrust 
of  any  existing  rocket  engine  can  be  theoretically  increased  and  decreased 
within  one  order  of  magnitude  peak-to-peak  without  significantly  altering  its  value 
for  indicating  trends  in  future  rocket  engine  designs.  An  example  of  this 
would  be  to  assume  a Titan  I,  second  stage  engine  rated  at  80,000  lbf  thrust 


J-257 


C.  J.  O'Brien 


-5- 


9 January  1980 


Extrapolation  of  Thrust  and  Chamber  Pressure  (cont.) 

at  682  psia  can  be  uprated  to  250,000  lbf  at  2150  osia  or  downrated  to  25,000 
lbf  at  215  psia.  The  only  geometric  alteration  required  would  be  that  the 
injector  orifice  size  be  increased  from  an  assumed  0.100  in.  dia.  to  0.133 
or  decreased  to  0.0750  in.  This  orifice  size  change  is  relatively  insignificant 
due  to  the  fact  that  the  injection  pressure  drop  is  assumed  to  increase  and 
decrease  in  order  to  maintain  a nearly  constant  combustion  time  lag  and  constant 

chug  stability  margin  by  slightly  varying  the  liquid  injection  pressure  drop  to 
chamber  pressure  ratio  of  about  0.15  to  0.20. 

THRUST  AND  CHAMBER  PRESSURE  TRENDS 

A comparison  of  existing  rocket  engine  chamber  pressures  over  three- 
orders-of-magnitude  is  made  with  thrust  over  eight  orders-of-magnitude  in 
Enclosure  (2).  The  trend  indicated  is  that  logarithm  of  the  rocket  engine 
chamber  pressure  tends  to  be  proportional  to  the  logarithm  of  the  thrust. 

There  are  no  engines  with  very  high  chamber  pressures  used  to  obtain  a very 
low  thrust  or  vice-versa.  Although  low  chamber  pressure-large  thrust  studies 
(e.g..  Big  Dumb  Booster  & APS)  have  been  made,  no  production  engines  have 
resulted.  The  lowest  chamber  pressure  and  highest  thrust  engine  shown 
is  the  pressure  fed  Apollo  SPS  engine.  The  highest  chamber  pressure  and 
lowest  thrust  engines  include  the  0.5  lbf  at  125  psia,  and  the  recent  high 
pressure  L0X/HC  engines  in  the  4500  to  55000  lbf  thrust  range.  The  logic 
for  the  fact  that  the  LOX/HC  engines  were  designed  for  higher  pressures  than 
the  trend  line  indicated  for  their  thrust,  lies  in  the  fact  that  many  are 
"subscale"  engines.  Or,  in  the  case  of  the  0.5  lbf  engine,  it  was  designed 
to  "blowdown"  with  tank  pressure  thereby  lowering  its  thrust  to  near  the 
"design  diagonal"  trend  line.  Note  the  "design  diagonal"  line  bandwidth  is 
defined  by  empirical  data. 
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CHAMBER  CONTRACTION  RATIO  TRENDS 

The  contraction  ratio  for  present  day  liquid/liquid  rocket  engines 
is  shown  in  Enclosure  (3)  over  the  eight  orders-of-magnitude  of  thrust.  The 
trend  indicated  narrows  with  increasing  thrust.  A weakly  increasing  con- 
traction ratio  with  increasing  thrust  trend  is  indicated  although  a constant 
value  of  as  low  as  1.8  is  also  indicated.  In  either  case  in  the  thrust  range 
of  from  600,000  to  1,500,000  lbf  a contraction  ratio  of  less  than  2.0  is 
indicated  for  a liquid/liquid  L0X/HC  engine.  The  use  of  engine  cycles  that 
pass  hot-gas  through  the  injector  require  a greater  injector  diameter  to 
allow  the  lower  density  gases  through  with  a minimum  of  pressure  drop.  This 
trend  results  in  contraction  ratio's  of  about  3.0,  which  tends  to  force 
liquid/hot-gas  chamber  pressures  to  higher  values  in  order  to  bring  chamber 

diameters  down  to  comparable  liquid-liquid  engines  operating  at  lower  chamber 
pressures . 


CHAMBER  LENGTH  TRENDS 


The  liquid-liquid  engine  chamber  length  from  injector-to-throat  is 
shown  in  Enclosure  (4)  for  eight  orders-of-magnitude  of  thrust.  The  chamber 
lengths  shown  are  limited  to  their  reasonable  range  of  applicability  as  defined 
in  Enclosure  (2).  That  is,  low  pressure  applies  to  low  thrust  only,  and  high 
pressure  applies  to  high  thrust  only.  This  results  in  a reasonable  "diagonal 
design"  line  extending  from  the  longest,  low  thrust,  engine  and  the  shortest, 
high  thrust  engine,  as  shown  below: 


F 

Pc 

Chamber  1 

(lbf) 

(psia) 

Liquid/Gas 

1.0 

30 

2.0 

1 . K 

250 

6.0 

l.M 

1500 

18.0 

Liquid/Liquid 

3. 

10. 
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Chamber  Length  Trends  (cont. ) 


Note  that  the  thrust  "band-width"  of  the  "design  diagonal  is  at  least  an 
order-of-magnitude  wide,  and  results  in  about  a + 40%  chamber  length  "band- 
width". For  example  if  the  33  in.  long  1 H LBF  1 iquid/1 iquid  engine  shown 
above  is  raised  in  pressure  to  about  4000  psia,  the  estimated  chamber  length 
drops  to  about  25  in. 

The  chamber  length  of  a liquid/hot-gas  cycle  engine  is  shown  in 
Enclosure  (5).  Note  that  the  net  effect  of  the  hot-gas  cycle  is  to  shorten 
the  chamber  relative  to  the  liquid/liquid  engines  as  is  shown  by  comparing 
the  chamber  length  equations: 


LIQUID/LIQUID: 


L0G10  L'  = .23  L0G10  (F/Pc)  + -850 

LI0UID/H0T-GAS: 

L0G10  L'  = .23  L0G1q  (F/Pc)  + -621 


^R.PS.VWo. t)r 

R.  A.  Hewitt 
Thermodynamic  Analysis 
Rocket  Design  Analysis 


Approved  by: 


J.  I.  Ito 

Thermodynamic  Analysis 
Rocket  Design  Analysis 


J ty..  Pieper,  Onager 
Thermodynamic  Analysis 
Rocket  Design  Analysis 
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APPENDIX  A 


Figure  A-l 
Figure  A-2 
Figure  A- 3 


Throat  Diameter  vs  Thrust 

Liquid/Liquid  Chamber  Diameter 

Liquid/Liquid  Chamber  Length  to  Diameter  Ratio 
vs  Thrust 
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THROAT  DIAMETER  TRFNDS 


The  exact  determination  of  the  throat  diameter  depends  on  many  design 
details  that  will  not  be  examined  here.  However,  relatively  accurate  trends 
can  be  seen  by  using  the  specific  impulse  and  characteristic  velocity 
relationships  and  corrected  for  estimates  of  efficiencies  and  losses  as  follows: 

C*  ’ PcfltS/“T 


Isp  = F/W 


such  that 


* 9 nr 


where  nD£L  = (.95) 


-]  [—sti — : 
J L pc  isp  J 


Typical 


^ F/Pc 


This  relationship  for  throat  diameter  is  shown  in  Enclosure  (6).  Note  that 

the  "design  diagonal"  limits  the  allowable  throat  diameters  for  a given  thrust 
and  chamber  pressure  to  the  "band-width"  shown. 
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Once  the  estimated  throat  diameter  and  contraction  ratio  are  known 
from  Enclosures  (3)  and  (6)  the  chamber  diameter  can  be  calculated  as  follows 
and  as  shown  in  Enclosure  (7): 

LIQUID/LIQUID  (AND  LIQUID/HOT-GAS  IF  CR  >_  3.0): 

L0X10  Dc  = ,4643  L0G10  F ' °'5  L0G  Pc  + -2651 

LIOUID/HOT-GAS  (Assume:  CR  = 3.0,  0 Pc  > 1000  psia,  F > 200,000  Ibf): 

LOG10  Dc  - 0.5  L0G1{)  (F/Pc)  + .159 

Note  that  the  liquid/hot-gas  chamber  diameter  is  calculated  assuming  a constant 
contraction  ratio  of  3.0  for  the  thrust  and  chamber  pressure  range  considered 
in  this  study.  If  lower  values  of  thrust  (and  at  Pc  > 1000)  were  being  con- 
sidered and  a liquid/liquid  contraction  ratio  of  greater  than  3.0  were  calculated 
it  should  be  used  in  place  of  the  constant  3.0  value. 

CHAMBER  LENGTH  TO  DIAMETER  RATIO  TRENDS 

Using  the  relationships  for  chamber  length  and  chamber  diameter 
shown  above  and  in  Enclosures  (4),  (5),  and  (7)  the  chamber  L/Dc  versus  thrust 
and  chamber  pressure  can  be  defined  as  follows: 

LIQUID/LIQUID: 

L0G1q  L1  .23  L0G1q  (F/Pc)  + -850 

LOG-jh  Dc  .4643  L0G10  F - .5  LOG]0  Pc  + .2651 

L0G10  (L7Dc)  = .27  L0G10  Pc  - .2343  L0G10  F + .585 
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LIQUID/HOT-GAS:  (Assuming:  CR  > 3.): 


L0G10  L' 
L0G10  Dc 


.23  LOG10  (F/Pc)  + .621 


.A6A3  L0G]0  F - .5  LOG]0  Pc  + .2651 


L0G10  (L7Dc)  = *27  L0Giq  Pc  " -2343  LOGln  F + .356 


LIQUID/HOT-GAS:  (Assume:  CR  - 3.  @ Pc  > 1000  psi,  & F 200,000  lbf) 


L0G10  L‘  _ -23  LOG]0  (F/Pc)  + .621 

L0G10  °c  .5  LOG1q  (F/Pc)  + .159 

L0G10  (L7Dc)r=  *4«  " -27  LOGln  (F/Pc) 

Note  that  the  middle  formula  does  not  apply  to  this  study  since  all  the  liquid/ 
liquid  contraction  ratios  will  be  less  than  3.0  and  all  the  liquid/hot-gas 
contraction  ratios  are  set  equal  to  3.0  due  to  the  high  thrust. 


LOG. n D 
10  c 


Note  also  that  the  "design  diagonal"  band-width  does  not  allow  ex- 
cessively large  or  small  L'/Dc  values  to  be  encountered  (i.e.,  no  larger  than 
22  0 F = 0.1  lbf,  or  no  smaller  than  0.5  @ F = 10MLBF). 
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